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PLANO DA OBRA 

"INPUT" e uma obra editada em fasciculos semanais, e cada 
conjunto de 15 fasciculos compoe um volume. A capa paraenca- 
demacao de cada volume estara a venda oportunamente. 

COMPLETE SUA COLECAO 

Exemplares atrasados, ate seis meses apos o encerramento da colecao, pode- 
rao ser comprados, a precos atualizados, da seguinte forma: I. PESSOAL- 
MENTE — Por meio de seu jornaleiro ou dirigindo-se ao distribuidor local, 
cujo endereco podera ser facilmenteconseguido junto a qualquer jornaleiro 
de sua cidade. Em Sao Paulo, os enderecos sao: rua Brigadeiro Tobias, 773, 
Centro; avenida Industrial, 117, Santo Andre; e no Rio de Janeiro: avenida 
Mem de Sa, 191/193, Centre. 2. POR CARTA — Poderao ser solicitados exem- 
plares atrasados tambem por carta, que deve ser enviada para DINAP — Dis- 
tribuidoraNacional dePublicacSes — Numeros Atrasados — Estrada Velha 
deOsasco, 132, Jardim Teresa — CEP 06000 — Osasco — SP. Naoenviepa- 
gamento antecipado. O atendimento sera feito pelo reembolso postal e o pa- 
gamento, incluindo as despesas postais, devera ser efetuado ao se retirar a en- 
comenda na agenda do Correio. 3. POR TELEX — Utilizeo n? (011) 33 670 
DNAP. 

Em Portugal, ospedidos devem ser feitos a Distribuidora Jardim de Publica- 
odes, Lda. — Qta. Pau Varais, Azinhaga de Fetais — 2 685, Camarate — Lis- 
boa; Apartado 57 — Telex 43 069 JARLIS P. 

Atencao: Apos seis meses do encerramento da colecao, os pedidos serao aten- 
didos dependendo da disponibilidade do estoque. 

Obs,: Quando pedir li vros, mencione sempre ti'tulo e/ou autor da obra, aletn 
do mimero da edicao. 

COLABORE CONOSCO 

Encaminhe seus comentarios, criticas, sugestoes ou reclamacoes 
ao Servico de Atendimento ao Leitor — Caixa Postal 9442, 
Sao Paulo SP. 
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DE SURRA: 
DE COMAN™ 





INlCIO DA PARTIDA 



COMO PAR ORDENS A TRQPA 
MOVIMENTQ E DIREC AO 

STATUS 

CQMPUTADOR COMO JQGADOR 



Mobilize seu exercito para a guerra, 
definindo uma estrategia de 
acao e discipiinando a tropa. Esses 
requisites sao fundamentals 
para o exercicio da arte de comandar 



Agora que as rotinas de posiciona- 
mento e movimentacao das tropas ja fo- 
ram incorporadas ao programa, i pre- 
ciso comecar a dar ordens ao exercito. 

Diversos fatores tendem a influenciar 
o comportamento de cada unidade no 
campo de batalha. Os mais significati- 
vos dentre eles sao os seguintes: 

- Ultima ordem recebida pela unidade. 

- Direcao em que a unidade se move. 

- Tipo de municao utilizado. 

- Armaduras e demais equipamentos de 
que dispoe a unidade. 

- Poder destrutivo inicial. 

- Poder destrutivo no momento em que 
a batalha £ travada. 

- Moral da tropa. 

- Posicao estrategica assumida pela uni- 
dade. 

- Terreno em que a batalha tern lugar. 

Esses fatores correspondem aos mo- 
ve elementos da matriz da tropa, que di- 
mensionamos no artigo anterior. O ter- 
reno e a posicao j£ foram definidos por 
ocasiao da rotina de movimento, Neste 
artigo atribuiremos valores aos elemen- 
tos restantes. 

Ao comecar o jogo, os valores iniciais 
adequados sao colocados na matriz da 
tropa. Os tipos de armadura e de muni- 
cao serao sempre os mesmos. Da mes- 
ma forma, o moral serS tamWm quase 
sempre o mesmo, embora possa sofrer 
algumas variacoes — os camponeses 
provavelmente nunca estarao muito dis- 
postos a lutar (afinal, a guerra nao e de- 
les, mas dos bardes feudais), enquanto 
os cavaleiros, para manter as aparen- 
cias, nunca agirao covardemente. A ca- 
pacidade destrutiva podera ser muito di- 
ferente de uma partida para a outra. As 
ordens e as direcoes iniciais sao deter- 
minadas pelo programa: todos comecam 
parados ("ALTO'*)i de modo que nlo _ 
existe uma direcao defmida. 
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As rotinas que se seguem acertam o 
valor de diversas variaveis. Os dados s§o 
obtidos de linhas DATA, ou at raves de 
alguns ealculos, ou das duas maneiras. 
Quando o programa estiver completo e 
em funcionamento, poderemos modifi- 
car esses dados de acordo com nossas 
preferencias. 



ABANDONE QUARTEL-GENERAL 



Estas rotinas acertam os valores ini- 
ciais dos elementos que ainda nao foram 
definidos: 



190 REM Imcialuacao 

200 LET vc-Or LET de-0 

310 REM 

320 PAPER 7 

330 INK 

340 CLS 

360 DIM tS(8,12): DIM o$(5,12) 

: DIMwS(5,9): DIM mS (5 . 12) : 

DIM aS<4.12): DIM r$(4.12): 



-DIM c(fi) 

380 FOB i-l TO 5: READ oSU), 

uS (l) ,mS (i) : NEXT 1 

390 FOR i=l TO B: READ t$(i): 

NEXT l 

400 FOR i = l TO 4: READ aSU). 

r$(i) : NEXT l 

410 LET uS-CHRS 14B+CHRS 149+ 

CHRS 150+CHRS 15l+CHR$ 151+ 

CHRS 152+CHRS 152 : LET u$-uS+ 

uS 

415 LET xS="NriSB" 

420 RETURN 
2760 DATA *fogo","nadrt","rovard 
e" . "alto" . "arco" . "baixo" 
2770 DATA "marche" , "espada" , "di 
apoato" , "status" . "machado" , "bra 
vd" 

2/80 DATA "retirada" . "lanca" , "v 
alente" 

2790 DATA "cava leiroa" , "saroenL 
oa",*lanceiroa", "arqueiros" , "ar 
queiros" , "caiponeBea" , "cam pones 
es" 

2 BOO DATA "nada" . "campo" . " gibao 
" , "vila", "malha metal ica", "tlor 
eata" , "chapa met *1 ica" , "montanh 
a" 

2B10 DATA 5,4.3.5.3,3,4,3,2,3,3 
.1,2.2,1,2,3.2,3,2,0,3,1,0 



m 



190 REM IN1CIO 
200 VO0:DE = 
340 CLS 

360 DIM T$(8) ,0${5) ,W$(5) ,MS{5) 
,AS{4) ,RS(4) 

3B0 FOR J=l TO 5: READ 0$(J),WS< 
J) .MS (J) :NEXT J 

390 FOR J-l TO S:READ TStJ):NEX 
T J 

400 FOR J=l TO 4:READ AS{J).RS( 
J) :NEXT J 
415 XS="NnSa" 
42 RETURN 

2 760 DATA FOGO , NADA, C0VABDE , ALT 
O, ARCO, BAIXO 

2770 DATA MAHCHE, ESPADA. DISPOST 
O , STATUS , MACHADO , BRAVO 
2780 DATA RETTRADA, LANCA. VALEMT 
E 

2790 DATA CAVALEIHOS .SARGENTOS, 
LANCEIROS , LANCE IROS . ARQUE IROS , A 
ROUE JROS , CAMPONESES , CAMPONESES 
2800 DATA NADA, CAMPO. GIBAO, VILA 
.MALHA METALICA,FLORESTA,PLACA 
METAL ICA , MONTANHA 
2810 DATA 5,4.3,5.3,3,4,3,2,3,3 
,1,2,2,1,2,3.2,3,2,0.3.1,0 
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2810 DATA 5,4,3,5,3,3,4.3.2, 
3, 3, 1,2, 2, 1,2, 3, 2, 3, 2, 0,3, 1.0 



190 BEM INICIO 

20 CL - 0:VC - : DE ■ 

340 HGB2 : POKE - 16301,0: GO 

SOB 2540 

360 DIM TS(8», OS(5) ,WS(5) ,M$(5 

) ,AS<4) ,R$<4> 

380 FOB I - 1 TO 5: READ 0SU) 

,WS(T) ,MS(I) ! NEXT I 

390 FOR 1 ■ 1 TO 8: 

: NEXT I 

400 FOB I - 1 TO 4: READ AS (I) 

,B$(I) ! NEXT I 

410 US - "45667786" 

415 XS = "NNSS" 

420 RETURN 

2760 DATA FOGO,NADA,COVABDE,A 

LTO . ARCO , BAIXO , MARCHE . ESPADA , DI 

SPOSTO 

2780 DATA STATUS , MAC HADO, BBAV 

, RETIRADA , LANCA , VALENTE 

2790 DATA CAVALEIBOS . SARGENTO 

S , LANCEIROS , LANCEIROS , ARQUEIROS 

, ARQUETROS , CAMPONESES . CAMPONESE 

S 

2800 DATA NADA.CAMPO.GIBAO. VI 

LA.MALHA METAUCA , FLORESTA. CHAP 

A METALICA.MONTANHA 



El 



Os usuarios do micro TK-2000 devem 
modif icar as seguintes linhas do progra- 
ma destinado ao Apple. 



READ TS(I) 340 HGB2 : GOSUB 2540 




D 



310 REM 

3 30 COLOR 4,2 
340 PCLS 

360 DIM TSC8) ,0$(5) ,W$(5) ,MS(5) 

,AS(4) ,R${4) 

380 FOR J-l TO 5:READ 0$(J),VS< 

J) ,MS (J) :NEXT J 

390 FOR J = l TO 8:READ T$(J):NEX 

T J 

400 FOR J-l TO 4: READ AS<J),RS( 

J) :NEXT 

415 XS-"NnSa" 

4 20 RETURN 

2 760 DATA FOGO.NADA ,COVAflDE , ALT 
O, ARCO, BAIXO 

2770 DATA MARCHE. ESPADA, DISPOST 
O , STATUS , MACHADO . BRAVO 
2 780 DATA RETIBADA. LANCA, VALENT 
E 

2790 DATA CAVALEIBOS , SARGENTOS , 
LANCEIROS , LANCEIROS , ABQUEIROS , A 
BQUEIROS , CAKPONESES , CAMPONESES 
2800 DATA NADA.CAMPO.GIBAO, VILA 
.MALHA METALICA. FLORESTA, CHAPA 
METAL I C A . MONT ANHA 
2810 DATA 5,4,3.5,3,3.4,3,2,3,3 
,1,2,2,1,2,3,2.3,2,0,3,1,0 

Os valores iniciais sao obtidos com 
READ das (inhas DATA, juntamente 
com as palavras equivalentes aos valo- 
res numericos colocados na matriz. As 
palavras serao usadas na janela de te.x- 
to para que a batalha se desenrole de 
maneira clara para o jogador. 



DE AS ORDENS 



O jogo consiste basicamente em dar 
ordens as unidades — sem isto nao ha- 
vera com bate e, conseqiientemente, vi- 
t6ria ou derrota. 

Existem quatro ordens basicas no jo- 
go Capa e Espada: "Fogo", "Alto", 
"Marche" e "Status". A ordem de ati- 
rar se aplica somente aos arqueiros, que 
obedecerao mesmo que nao haja unida- 
des inimigas nas redondezas. 

Dar ordens as tropas tern suas des- 
vantagens: quanto mais real quisermos 
que seja urn jogo de guerra, mais com- 
plicadas serao essas ordens. Inversamen- 



te, quanto mais simples for o jogo, mais 
facil sera o processo de comando. As- 
sim, um jogo muito realista sera mais di- 
ffer! de jogar; e, se quisermos produzir 
um jogo facil de jogar, teremos que sa- 
crificar os detalhes. Depois de progra- 
mar algu'ns jogos desse tipo, voce sera 
capaz de criar programas mais com- 
plexos. 



R0TINA DE COMANDO 



A rotina de comando de Capa e Es- 
pada seleciona as unidades de cada jo- 
gador, uma a uma, para que estes pos- 
sam dar as ordens. A unidade em ques- 
tao tern sua cor modif icada no mapa 
(em alguns computadores a mudanca e 
suttl). Uma mensagem solicitando as no- 
vas ordens para essa unidade (indicada 
por seu niimero) e" mostrada na janela 
de texto. Se o jogador nao quiser alte- 
rar as ordens, basta pressionar a tecla 
N. Se S for pressionada, sera mostrado 
um menu com as ordens possfveis. 

Caso seja selecionada a ordem de ati- 
rar (FOGO) e a unidade nao seja cons- 
tituida de arqueiros, uma nova ordem 
sera escolhida. O comando ALTO faz 
a unidade permanecer onde esta e MAR- 
CHE exige a definicao da direcao, indi- 
cada pelas iniciais de norte, sul, leste e 
oeste. O programa nao faz nenhum tes- 
te para verificar se a direcao e valida; 
portanto, preste atencao ao mapa. 



C0M0 SELECI0NAR UMA UNIDADE 



Quando chega a vez do jogador, a 
primeira unidade e destacada por meio 
da mudanca de cor; isso se repete com 
cada uma das outras sete unidades. O 
simbolo que muda de cor e a unidade 
que o jogador deve considerar: as or- 
dens devem ou nao ser modificadas? 
Quando a unidade e destacada, uma 
mensagem surge na janela de texto, 
mostrando a ultima ordem dada. 



1380 REM unidade 

1390 GOSUB 254 

1400 INK 

1410 PRINT FLASH 1 ;AT TO.BJ.T 

(i.9) ;u3(i) 

1420 PRINT AT 17 . U ; "Unidade num 

ero " :i;" ";tS(i) ;" 

1430 PRINT AT 18,0 j "Ultima orde 

m:"toS(T(i.l)) ;" " ; 

1440 IF TU,1)=3 THEN PRINT AT 

18,2B;i$<T(i,2)} 
1450 BEM Loop 
1460 PRINT AT 19 , ; "Deee ja muda 






r as ordena (S/N) ?" 

1465 LET y=0: LET y$=INKEYS 

1466 IF yS="" THEN ^OTO 1465 
1470 FOR k-1 TO 4 

1475 IF x3(k)=yS THEN LET y = k 

1480 NEXT k 

1490 IF y=0 THEN GOTO 1450 

1500 RETURN 



a 



fto 



1380 REM UNIDADE 

1390 GOSUB 2540 

1410 LOCATE T(1.9) ,TU,8) :PRINT 

CHR$(UU)+48) ; 
14 20 LOCATE 0,18: PRINT "UNIDADE 
"lIf*:"}TiCI)f" 

1430 LOCATE 0,19: PRINT "ULTIMA 
0RDEM:";0$£T{I,D) i 
1440 IF T(I ( 1)»3 THEN PRINT IS( 
TCI 2) ) 

1460 LOCATE 0,20: PRINT "QUER MU 
DAR AS ORDENS {S/N)?" 

1465 YW=0:YS=INKEY$ 

1466 IF YS="" THEN 1465 
1470 YW-INSTR(1,XS,YS) 
1490 IF YW=0 THEN 1460 
1500 RETURN 



3j 



1380 REM UNIDADE 
1390 GOSUB 2540 
1410 X ■ T(I,9):Y = T(I,8):N - 
VAL t MIDS (U$,T - (I > 8) * 8 
,1)} + (I > 8) * 5: GOSUB 20 00 
1420 VTAB 21: PRINT "UNIDADE N 
UMERO ";I;" ";T${I) 
1430 PRINT "ULTIMA ORDEM : " ; OS 
CT{I,1>) i" "; 

1440 IF T(I,1) - 3 THEN PRINT 
MIDS (IS.TU.2) ,1) : GOTO 1460 
1450 PRINT 

1460 PRINT "DESEJA MUDAR AS OR 
DENS (S/N)?": GOSUB 30000 
14 65 YW ■ - 0: GET YS 
1470 FOR K - 1 TO 4 
1475 IF MIDS (XS.K.l) - YS TH 
EN YW = K 
14 80 NEXT K 

1490 IF YW = O THEN 1450 
1500 RETURN 

20000 X=X*2-2:N=N*2: 
FOR - TO 1:X ■ X + »:H ■ N 
+ W: FOR V - TO 7 
20010 POKE T +• (Y - 8 * CY > 7 
) - 8 * (Y > 15)) * 128 + 40 * 
(Y > 7) + 40 * (Y > 15) + X + 1 
024 * V. PEEK (EE + N * 8 + V) 
- 128 
20020 NEXT V,W: RETURN 



1044 



Faca a seguinte modificacao no pro- 
grama do Apple: 

1460 PRINT "DESEJA MUDAR AS OR 
DENS (S/N)?" 



1380 REM UNIDADE 

1390 GOSUB 2540 

1400 COLOR 4 

1410 DRAW"BM"+STRS(T{I,9)*8)+", 

" +STRS (T ( I , 8) *8) : UU-VAL {MIDS (US 

, 1,1)) :AS=UCS(UU) : GOSUB 3030 

1420 DRAW" BM0, 144" : A$-"UNIDADE" 

4SRSCD+" "+TS(I»+" ":GOS 

UB 3190 

1430 DRAW"BM0.152":AS-"ORDENS S 

AO PARA "+OS(T(I,l))+" ":GOSU 

B 3190 

1440 IF T(I.l)-3 THEN DRAW "BMl 

60,152":AS«=MIDS(IS,T(I,2) , 1> :GO 

SUB 3190 

1450 REM 

1460 DRAW" BMO. 160"; AS- "DESEJA M 

UDAR AS ORDENS (S/N)": GOSUB 319 



1465 Y-0:YS-INKEYS 

1466 IF YS-"" THEN 1465 
1470 Y-INSTR(1,XS,Y$) 
1490 IF Y-0 THEN 1450 
1500 RETURN 

3000 X9»PEEK{200] : Y9»PEEK(202) : 

LINE (X9, Y9) - {X9+7 , Y9+7) , PRESET. 

BF 

3010 POKE 200,X9:POKE 202,Y9:DR 

AW AS 

3020 RETURN 

3030 X9-PEEK(200) : Y9=PEEK ( 202) : 

C9=PEEK<178) : COLOR 2:LINE(X9,Y9 

)- (X9+7.Y9+7) ,PSET,BF 

3040 POKE 178,C9:GOTO 3010 

3050 REM DADOS PARA LERAS E DIG 

ITOS 

3060 DATA BR4 , BDD5RU3NR2U2ERFND 

5BR4BU, D6R3EUHEUHBR5 , NH5D6R5BR3 

BU6,NR3D6R3EU4BUBR4,NR5D3NR3D3R 

5BR3BU6 , NR5D3NR3D3BR8BU6 . NR5D6R 

5U2BU4BR3 

3070 DATA ND6D3RSD3U6BR3 , R5L2D6 

L3R5BR3BU6 , BD5RFREUi>L2BR6 . ND6D3 

R3FD2BU4U2BR4 , D6R5BR3BU6 . ND6DR5 

NL5UBR3,ND6DR2D:m3D2U6BH^ 

3080 DATA D6R5U6NL5BR3 , D6U3RbU3 

NL5BR3 ,D6UR3FRBU2U4NL5BR3 , D6U2R 

3FDUBU2NL2U3NL4BR4,NR5D3R5D3NL5 

BI/6BR3 , R5L2ND6BR5 , D6R5U6BR3 

3090 DATA D4RFDRUEU4BR4 , D6UR5DU 

6BR3 , D2RFGND2ERFND2HEU2BR4 , D2RF 

D3RU3EU2BR4,R4D2GLGD2R4BU6BR3 

3100 DATA BR3LGD4FREU4BR4BU,BR2 

DNL2D5L2R5BU6BR3 , BDRERFDGL2D3R4 

BU6BR3 , BDRERFDGFDGLHLBU5BR8 , D4R 

5UD3BU6BR3 , NR5D2R3FD2GLHLBU5BR8 

, BDBR5LHLGD2NR2D2FREUBU4BR4 

3110 DATA RSD2LGLGD2BR7BU6,BR3L 

GDFGDFREUHEUBUBR4 , BR3LGDFR2D2GL 

HLBU2BR4U2BUBR4 

3120 REM MATRIZ DE CARACTERES 

3130 DIM LESC26) 

3140 FOR K9-0 TO 26:READ LE$ CK9 

) :NEXT 

3150 FOR K9 = TO 9:READ NUS (K9) 

:NEXT 

3170 RETURN 

3180 REM ROTINA PARA IMPRIMIR A 

$ 



3190 FOR K9-1 TO LEN(AS) 

3200 B$-MID$(AS,K9.1) 

3210 IF BS>-"0" AND BS<-"9" THE 

N DRAW NU$(VAL (BS) ) :GOTO 3240 

3220 IF BS-" " THEN N9-0 ELSE N 

9-ASC{B$)-64 

3230 DRAW LES (N9) 

3240 NEXT 

3250 RETURN 

As ordens para a unidade destacada 
sao mostradas na janela de texto. O jo- 
gador e indagado, entao, sobre se dese- 
ja mudar as ordens. 

O micro TRS-Color possui [inhas 
adicionais (3000 a 3250) destinadas a de- 
senhar as letras e os mimeros na tela de 
alta resolugao. 



A ARTE DE C0MANDAR 



Esta rotina mostra urn menu com as 
ordens possfveis: 



1900 REM acao 

1910 GOSUB 2540 

1920 PRINT AT 13 . ; "Opcoes :" 

1930 FOR J=l TO 4 

1940 PRINT AT 17 + j ,8 ; o$ ( j , 1) ; "- 

" ;o${ j) 

1950 NEXT j 

1960 REM loop 

1962 LET a=0 

1965 LET fS="F£AaMmSa" 

1970 LET g$=INKEY$: IF q$="" TH 

EN GOTO 19 70 

1975 FOR k^l TO 8 

1980 IF £S(k)=g$ THEN LET a=IN 

T (lk+l)/2) 

1985 NEXT k 

1990 IF a<=0 THEN GOTO 1960 

2000 IF l<>6 AND l<>5 AND a=l T 

HEN GOSUB 2540: PRINT AT 18,8; 

"Nao ha arcca": GOSUB 2410: GOT 

O 1910 

2010 IF a-4 THEN GOSUB 2440: R 

ETURN 

2020 LET TCi . I)=a 

2030 IF a=l THEN GOSUB 2050 

2040 RETURN 



m 



1900 REM ACXO 

1910 GOSUB 2540 

1920 LOCATE 0,19:PRINT "OPCOES: 

* f 

1930 FOR J-l TO 4 

1940 LOCATE 8.18+J:PRINT LEFTS< 

0$,2) i"-":OS(J) 

1950 NEXT J 

1960 A=0 

1965 FS="FHMS" 

1970 GS=INKEY$:IF C$ = "" THEN 19 

70 

1980 A*INSTRU,F$,GS) 




WGRAMACAODEJOGOS 41 



III 



1990 IF AOO THEN 1960 

2000 IF IC>6 AND I<>5 AND A=l T 

HEN GOSUB 2540: LOCATE 8,19:PRIN 

T "S£M ARCOS": GOSUB 2410: GOTO 1 

910 

2010 IF A=4 THEN GOSUB 2440: RET 

URN 

2020 T(I.1)-A 

20 30 IF A=3 THEN GOSUB 2050 

2040 RETURN 



SI 



1900 HEM ACAO 

1910 GOSUB 2540 

1920 UTAB 21: PRINT "OPCOES: " 

1930 FOR J = 1 TO 4 

1940 HTAB 10: PRINT LEFTS (0$ 



(J) ,11 i" ~ ";0S{J) : : IF J C 4 T 
HEN PRINT " " 
1950 NEXT J: GOSUB 30000 
1960 FS ■ "FFAAMMSS" 
G$ 
) 

TO 8 

(F3.K.1) = 
+ 1) / 2) 



E] 



1970 


GET G$ 


1973 


A - 


1975 


FOR K - 1 


1980 


IF MID$ 


EN A 


= INT < (K 


1985 


NEXT K 


1990 


IF A < - 


2000 


IF I < > 


AND * 


- 1 THEN 



G$ TH 



THEN 1970 

6 AND I < > 5 

GOSUB 2540: PR I 

NT "NAO HA ARCOS": GOSUB 30000: 
GOSUB 2410: GOTO 1910 

2010 IF A = 4 THEN GOSUB 2440 

: RETURN 

2020 TCI, 15 - A 

2030 IF A - 3 THEN GOSUB 2050 

2040 RETURN 



Modificai;6es para o TK-2000: 

1950 NEXT J 

2000 IF I < > 6 AND I < > 5 
AND A = 1 THEN GOSUB 2540: PRI 
NT "NAO HA ARCOS": GOSUB 2410: 
GOTO 1910 



1900 REM SELECIONA ACAO 

1910 GOSUB 2540 

1920 DRAU'BMO. 152 ":A$- "OPCOES 

-: GOSUB 3190 
1930 FOR J-l TO 4 
1940 DRAW"BM104,"+STRSU44+J*8) 




1045 
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1046 



:AS-LEFTS(OS(J) ,U+* "+0$(J);G 

OSUB 3190 

1950 NEXT J 

1960 REM 

1962 A=0 

1965 F$-"FAMS" 

1970 G$-INKEY$:IG GS-"' THEN 19 

70 

1980 A-INSTRtl ,FS.GS) 

1990 If A<-0 THEN 1960 

2000 IF I<>6 AND 105 AND A-l T 

HEN GOSUB 2540 ;DRAW"BM64, 152" :A 

S="NAO HA ARCOS": GOSUB 3190 :GOS 

UB 2410:GOTO 1910 

2010 IF A-4 THEN GOSUB 2440 :RET 

URN 

2020 T{I,1)-A 

2030 IF A-3 THEN GOSUB 2050 

2040 RETURN 

As linhas 1920 a 1950 mostram as op- 
codes na tela. As linhas 1965 a 1985 ob- 
tem a resposta do teclado e colocam o 
numero equivalente a ordem seleciona- 
da na variavel A: e "fogo", 1 e "al- 
to", 2 e "marche" e 3 e "status". 

A ordem de atirar s6 sera possivel por 
meio de uma rotina do proximo artigo 
da serie. As opcdes de marchar e de sta- 
tus serao dadas pelas pr6ximas rotinas. 
A ordem "ALTO" nao precisa de uma 
rotina especial, ja que nada acontece 
com a unidade. O eiemento da matriz 
da tropa que indica a direcao em que se 
movimentava a unidade nao deve ser 
modificado porque e utilizado na roti- 
na de combate. 

A linha 2020 coloca o valor da varia- 
vel A na matriz da tropa; o numero da 
ordem corresponde ao primeiro eiemen- 
to da matriz. 



UMA NOVA DIRECAO 



Se o jogador ordenar a uma unidade 
que se movimente, o programa solicita- 
ra uma direcao. Esta rotina cuida das 
opcoes possiveis: 



2050 REM Direcao 

2055 GOSUB 2540 

2060 PRINT AT 17,0; "Para onde ( 

NSLO) ?" 

2065 LET a=0 

2070 REM loop 

2080 LET <3$ = INKEY$: IF gS="" TH 

EN GOTO 2080 

2090 IF CODE (gS>>90 THEN LET 

gS=CHRS (CODE (aS>~32) 

2095 FOR k"l TO 4 

2100 IF i$(k)=g5 THEN LET g=k 

2105 NEXT k 

2110 IF g»0 THEN GOTO 2070 

2120 LET T(i,2)-g 

2130 RETURN 



Tffi 



2050 REM DIRECAO 

2055 GOSUB 2540 

2060 LOCATE 0,18: PRINT "PARA ON 

DE (NSLO)?" 

2065 G-0 

2070 REM 

2075 REM 

2080 G$-INKEY$:IF G$="" THEN 20 

80 

2100 G«INSTR{1,IS,G$) 

2110 IF G-0 THEN 2070 

2120 T(I,2)-G 

2130 RETURN 



ai 



2050 REM DIRECAO 

2055 GOSUB 2540 

2060 VTAB 21: PRINT "PARA ONDE 

(NSLO)?' 
2065 GOSUB 30000 
2070 G-0 
2080 GET GS 
2090 IF ASC (GS) > 90 THEN GS 

= CHR$ { ASC (G$> - 32) 
2095 FOR K = 1 TO 4 
2100 IF MIDS (IS.K.l) - GS TH 
EN G - K 
2105 NEXT K 

2110 IF G « THEN 2070 
2120 T(I,2) = G 
2130 RETURN 



m 

Modificacoes a fazer no programa: 

2065 REM 

Q 

2050 REM DIRECAO 

2055 GOSUB 2540 

2060 DRAW"BM0,144" :AS-*QUAL A D 

IRECAO NSLO ": GOSUB 31 

90 

2065 G-0 

2070 REM 

2080 G$=INKEY$: IF G$-"" THEN 20 

80 

2100 G»INSTR(1,IS,G$) 

2110 IF GOO THEN 2070 

2120 T(I,2)-G 

2130 RETURN 

A rotina verifica se a letra teclada pe- 
lo jogador € N, S, L ou O. Se for uma 
delas, a linha 2120 colocard o numero 
do movimento equivalente no segundo 
eiemento da matriz da tropa. 



STATUS 



Para eonferir a situacao de uma uni- 
dade, o jogador ter£ esta rotina. 



2440 REM statue 

2450 GOSUB 2540 

2470 PRINT AT 18 , ; "Ar»a: ";wS( 

T(i,3)) 

2480 PRINT AT 18 , 15 ; "Anoadur a : 

":aSIT(i,4)) 

2490 PRINT AT 19. ; " Poder : ";T{ 

i,7) 

2500 PRINT AT 19, 14 : "Mora 1 : " ;m 

$(TCi,5)) 

2510 PRINT AT 20, | "Terreno: " ; 

r$((n(T(l ,8) ,TU.9))+1) 

2520 GOSUB 2410 

2530 RETURN 

2560 PRINT AT 17 , ; "UNIDADE 

;" Tipo: ";t$(l) 



? 

'i 
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2450 GOSUB 2540 


2480 PRINT "ARMADURA: ":AS(T(I 


2450 GOSUB 2540 


2460 LOCATE 0,18: PRINT "UNIDADE 


,4)) ;"." 


2460 DRAW"BM0,144":A3-"UNIDADE" 


";I,-TrPO:-;TS(D 


2490 PRINT "PODER: *;T(I,7);". 


+STH3(I>+" TIPO "+T9(I):GOSU 


2470 LOCATE 0.19: PRINT "ARMA:"s 


M . 
1 


B 3190 


MS(T(I,3)) 


2500 PRINT "MORAL: ": MS (TCI. 5) 


2470 DRAW"BM0,152":A3-"ARMA *+U 


2480 LOCATE 15, 19: PRINT "ARMADU 


\ , IP W 
) 1 * 


9CT(I,3)J .GOSUB 3190 


RA:"; AS (TCI. 4)] 


2510 PRINT "TERRENO: ";RS(M{T( 


2480 DRAM." BM1 2 0,152": A3- "ARMADU 


2490 LOCATE 0,20:PHINT "PODER:" 


1.8] ,T(I,9)) + 1) 


HA "+AS(T(I,4)) rGOSUB 3190 


iT(I,7) 


2520 GOSUB 2410 


2490 DRAW "BMO, 160": AS- "PODER "+ 


250 LOCATE 15, 20: PRINT "MORAL: 


2 530 RETURN 


SR$ (T CI. 7)): GOSUB 3190 


-;MSCT(I.5>) 

2510 LOCATE 0.20 : PRINT "P0SIC*0 




2500 DRAWBM120, 160" :AS-"MORAL 


L&J 


"+MS(T(I,5)) : GOSUB 3190 


:";R$(K{TU,8) ,T(I,9))+D 




2510 DRAW"BM0,16B":A$-"TERRENO 


2520 GOSUB 2410 


Modificagoes para o TK-2000: 


"+RS(M(TU,B) ,T<I,9))+1> :GOSUB 


2530 RETURN 




3190 




2545 HCOLOB- O: FOR ER - 160 T~ 
191 


2520 GOSUB 2410 
25 30 RETURN 


LMJ 


2546 HPLOT O.ER TO 279, ER: NEX 




2440 REM STATUS 

2450 GOSUB 2540 

2460 VTAB 21: PRINT "UNIDADE " 

:Ii " ." ;"TIPO. "TSCU 


T 

Q 


Todos os elementos pertenccntes a 
matriz da tropa (ou as palavras corres- 
pondentes) que se referem a unidade que 


2470 PRINT "ARMA: " ; US CT ( I , 3) ) 




o jogador esta querendo conferir sao 


, m n t 


2440 REM STATUS 


mostrados na tela. 








m 
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EFEITO DAS ORDENS 



Esta rotina informa ao jogador quan- 
do cada unidade obedece as ordens. 



1020 REM cuDpre 

1030 FOR 1=1 TO 16 

1032 IF t(i.l)>3 THEN GOTO 114 



1035 INK 0: GOSUB 2540: PRINT A 

T 17,0 ; "Unidade " ; l ; " entra em 

acaO I " 

1040 LET cl-1: IF 1>B THEN LET 

cl-2: INK cl 
1050 IF Ttl.l)=3 THEN LET b-1 : 

GOSUB 1160 
1055 IF T(i,l)-2 THEN GOTO 114 


1060 IF T(i,l)-1 THEN LET eh- i 
: GOSUB 1710: GOTO 1140 
1070 FOR f— 1 TO 1 
1080 FOR g--l TO 1 
1090 FOR e-1 TO 16 
1100 IF (TCi,8)+£=T(e,8)) AND ( 
TCi.9)+g=T(e,9l) AND T<e,l)<>5 
THEN LET ua=i: LET th=e : GOSUB 

1510 
1110 NEXT e 
1120 NEXT g 
1130 NEXT f 
1140 NEXT l 
U50 RETURN 



M 



1020 REM CUM 
1030 FOR 1-1 
1032 IF T(I, 
1035 GOSUB 2 
NT "UNIDADE" 
1040 IF T(I, 
1050 IF T(I, 

1160 
1055 IF TU. 
1060 IF T(I. 
B 1710:GOTO 
1070 FOR F=- 
1080 FOR C*- 
1090 FOR E»l 
110(1 IF (TCI 
(I.9)+G-T(E 
HEN US-I:TH= 
1110 NEXT E 
1120 NEXT G 
1130 NEXT F 
1140 NEXT I 
1150 RETURN 



PRE 
TO 16 

1)>3 THEN 1140 
540: LOCATE 0,18; PR. I 
; I; "OBEDECE" 
1)>3 THEN 1140 
l)»3 THEN B-I: GOSUB 

11-2 THEN 1140 
1)=1 THEN SH»I:GOSU 
1140 
1 TO 1 
1 TO 1 
TO 16 

,8)+F-T<E,8)) AND(T 
9)) AND TIE,1><>5 T 
E:GOSUB 1510 



3] 



1020 HEM CUMPRE 

1030 FOR I - 1 TO 16 

1032 IF T(l.l) > 3 THEN 1140 

1035 GOSUB 2540: UTAB 21: PHIN 

T "A UNIDADE "lit" OBEDECE" : GO 



SUB 30000 

1040 LET CL - 0: IF I > 8 THEN 

CL - 5 
1050 IF T(I,1) - 3 THEN B = I: 

GOSUB 1160 
1055 IF T(I.l) - 2 THEN 1140 
1060 IF T(I.l) = 1 THEN SH = I 
: GOSUB 1710: GOTO 1140 
1070 FOR F - - 1 TO 1 
1080 FOR G = - 1 TO 1 
1090 FOR E - 1 TO 16 
1100 IF (T(I,8) + F - TtF.,8)) 
AND (T<1.9) + G - T(E,9)) AND T 
(E.l) < > 5 THEN US ■ I:TH = E 
; GOSUB 1510 
1110 NEXT E 
1120 NEXT G 
1130 NEXT F 
1140 NEXT I 
1150 RETURN 



Modificacoes necessarias: 

1035 GOSUB 2540: UTAB 21: PRIN 
T "A UNIDADE " ; I ; " OBEDECE" 



1020 REM CUMPRE 

1030 FOR 1-1 TO 16 

1032 IF T(I,1)>3 THEN 1140 

1335 COLOR 4:GOSUB 2540: DRAW *B 

M0 , 144" : A3* "UNIDADE" +STRS ( I > +" E 

NTRA EM ACAO ! " :GOSUB 3190 

1040 CL-3:IF I>8 THEN CL-4:COLO 

R CL 

1050 IF T(I,l)-3 THEN B-1: GOSUB 

1160 
1055 IF TU,1)=2 THEN 1140 
1060 IF T(I,1)-1 THEN SH-I:GOSU 
B 1710:GOTO 1140 
1070 FOR F--1 TO 1 
1080 FOR G--1 TO 1 
1090 FOR E-l TO 16 
1100 IF (T(I.S)+F-T(E,8)) AND { 
T{I.9)+G-T(E,9)) AND T(E,1><>5 
THEN US- 1:TH-E: GOSUB 1510 
1110 NEXT E,G,F 
1140 NEXT I 
1150 RETURN 

O funcionamento dessa rotina e par- 
ticularmente simples. Ela toma cada 
uma das unidades e executa as ordens. 
S6 havera combate se uma das unida- 
des se mover (a que se moveu por ulti- 
mo e considerada atacante). Quando 
uma ordem de "alto" e detectada, tu- 
do permanece como esta, passando-se a 
pr6xima opcao. Quando ordens de "fo- 
go" sao encontradas, a rotina de tiro 6 
chamada. Se as ordens forem de "mar- 
che", sera chamada a rotina MOVE. 

Apos a realizacao de urn movimen- 
to, a rotina verifica as posicdes adjacen- 
tes a nova localizacao da unidade em 



busca de tropas inimigas (linhas 1070 a 
1 150). Se alguma delas for encontrada, 
sera chamada a rotina de combate, que 
apresentaremos no prdximo artigo. 



A VEZ DO C0MPUTAD0R 



Por enquanto, o computador dara 
ordens ao acaso. Na ultima parte desta 
serie, veremos como transforma-lo em 
um adversario inteligente. A rotina se- 
guinte limita-se a tornar o programa 
possivel de ser jogado. 



2140 REM in ion go 

2150 LET T(e.2)«3 

2160 LET T(e.l)»FN r{3) 

2170 IF T(e.l)-1 AND T(e,3)<>2 

THEN GOTO 2160 

2180 IF T(e,l)-3 THEN IF FN r( 

2}=1 THEN LET T<e,2)=FN r<4) 

2190 RETURN 



wt 



2140 REM INIMIGO 

2150 T(E,2)-3 

2160 T(E,1)=FN R[3J 

2170 IF T(E,1)-1 AND TCE.3)<>2 

THEN 2160 

2180 IF T(E.2)-3 THEN IF FN R (2 

)-l THEN T(E.2)-FN R{4) 

2190 RETURN 



GEE] 



2140 REM INIMIGO 

2150 T(E,2) - 3 

2160 TtE.l) - FN R[3) 

2170 IF T(E.l) - 1 AND T(E,3) 

< > 2 THEN 2160 

2180 IF T(E.l) ■ 3 THEN IF F 

N R(2) = 1 THEN T(E,2f = FN RC 

4) 

2190 RETURN 

Q 

2140 REM INIMIGO 

2150 T(E,2)-3 

2160 T(E,1)-RND(3> 

2170 IF T(E.1)-1 AND T(E,3)<>2 

THEN 2160 

2180 IF T(E.l)-3 AND RND(2)-1 T 

HEN T(E.2)-RND(4) 

2190 RETURN 

A rotina gera um niimero aleatorio 
na linha 2160 que decide o tipo de acao 
das unidades do computador na joga- 
da. Se o computador decidir mover al- 
guma unidade, havera uma tendencia ao 
movimento em direcao sul (linha 2150). 
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UM 

GRAFICO 



programs deste artigo pode reduztr 
urn desenho a proporcfles diminutas 

ou expandi-lo em escala astron6mica. 
Utize-o como jogo ou para 
realizar desenhos muito detalhados. 



O programs que acompanha este ar- 
ligo e muito mais divertido do que os 
programas aplicativos habituais. De fa- 
to, elepode ser usado. seja como jogo, 
seja como aplicacao. 

Ele permit e desenhar e, em seguida, 
amptiar ou reduzir, ate urn nivel micros- 
cdpico, partes de uma figura para ob- 
ter maiores detalhes. £ possivel, alem 
disso, mudar a escala a qualquer mo- 
mento, usando ampliacdes de milhares 
de vezes ou ate mesmo de centenas de 
milhares. Assim, uma enorme quantida- 
de de detalhes que seriam imperceptiveis 
a olho nu numa figura de proporcoes re- 
duzidas aparece de modo bem claro 
quando ela e submetida a uma amplia- 
cao por meio de urn zoom. 

Imagine^se com um poderoso micros- 
c6pio, penetrando cada vez mais em di- 
recao k estrutura da imagem, Os deta- 



lhes desta aparecerao a medida que a 
ampliacao for aumentando e, inversa- 
mente, desaparecerao quando ela sofrer 
uma reducao de certa magnitude. 

Para tornar ainda mais claro esse 
processo, podemos considerar o seguin- 
te exemplo: se comecarmos a fotogra- 
far nossa casa e nos afastarmos pouco 
a pouco ate uma distancia de centenas 
de milhares de quildmetros, os objetos 
— primeiro a casa, depois a rua, o bair- 
ro, a cidade, o pais e mesmo a Terra — 
desaparecerio gradualmente das ima- 
gens retidas pela camara. Tais efeitos 
graficos podem ser conseguidos com o 
programa deste artigo. 

Uma maneira de usar o programa e 
transforma-lo em um jogo para duas 
pessoas. Uma delas faz um desenho que 
esconde, em algum lugar discreto, um 
"tesouro", de tamanho diminuto. A ou- 
tra deve procurar o tesouro. Essa tare- 
fa pode se revelar surpreendentemente 
d i fid! . I m aginemos que o jogador co- 
mece sua busca em um quadrado de 10 
cm de lado. Se este for ampliado 5 000 
vezes, o quadrado original se trans for- 
mara em uma area enorme de cerca de 
250 000 m 2 — espaco suficiente para 
esconder qualquer coisa. 



COMO DESENHAR 



AJUSTE A ESCALA 



COMO AMPLIAR E REDUZIR 



DETALHES ESC0NDID0S 



DESENHOS DE PRECISA0 



O programa se presta ainda a aplica- 
coes em diferentes areas professionals. 
Desenhos minuciosos, por exemplo, po- 
dem ser produzidos tracando-se os de- 
talhes em uma escala de grandes propor- 
c5es e depois reduzindo-se a figura pa- 
ra um tamanho normal. Desenhos tec- 
nicos muito precisos podem ser obtidos 
trabalhando-se em um setor de cada vez. 
O programa tambem e util como ele- 
mento de apoio no campo peda- 
gogico. Tomemos como exemplo 
uma licao geografica, A posicao 
das maiores cidades pode ser 
marcada no mapa em uma esca- 
la muito reduzida. No tamanho 
normal, ficariam s6 como pon- 
tos residuais e apareceriam em 
detalhe apenas quando se usasse 
um zoom no local adequado. 

O programa ofereee tambem 
a possibilidade de se es- 
crever nomes. Embora 
nao permita o uso de le- 
tras normais, e possivel 
desenha-las. Para isso, 
recorra a uma escala 
bem grande e depois re- 
duza as let ras para o ta- 
manho adequado. 






VJ 
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Ampliando esle desenho. 



voce piidera olhar atraves da vidraca, 



e verificar que hi um livro sobre a mesa! 



COMO EXECUTAR PROGRAMA 



Ao ser executado, o programa apre- 
sentara a tela em branco e um pequeno 
cursor no centro dela. Voce encontrara 
tambem dois niimeros: o da esquerda in- 
dica a escala da tela atual — 1 para co- 
mecar; o da direita mostra o niimero de 
linhas desenhadas. Esse niimero e limi- 
tado a um maximo de seiscentos no inf- 
cio do programa, que e controlado pe- 
lo teclado e muito facil de usar. 

No MSX, no Spectrum e no TRS- 
Color, o cursor e controlado pelas se- 
tas do teclado. Nos outros micros, as te- 
clas sao: I, para cima; M, para baixo; 
J, para a esquerda e K, para a direita. 
Pressionando-se simultaneamente essas 
teclas — < SYMBOL-SHIFT > no 
Spectrum, ou < CLEAR > no TRS- 
Color — acelera-se o cursor. 

As outras teclas usadas sao L, M, C, 
D, E, S e Z. Veja o que elas fazem: L 
desenha uma linha junto ao cursor; M 
move o cursor sem desenhar (nos micros 
da linha Apple, use ; em vez de M para 
mover o cursor). Pressionar C leva o 
cursor ao centro da tela; D cancela li- 
nhas. O niimero de linhas a ser apaga- 
do sera perguntado pelo computador. 
Pressione S para ter acesso a um arqui- 
vo de saida que permita a armazenagem 
de seu desenho em disco ou fita. 

Agora, a parte mais interessante. A 
tecla Z (para zoom) permite a alteracao 
da escala. E digitada sempre com um 
numero: 2, por exemplo, dobra a escala 
e 0.5 a reduz ao meio. O desenho e refei- 
to na nova escala e centrado no cursor. 
Assim, voce deve deixar o cursor sem- 
pre no meio da area que deseja ampliar. 

Usar como escala nao altera o de- 
senho, enquanto 1 redesenha a figura 
centrada no cursor, reproduzindo-a na 
escala anterior (no Apple, centra o de- 
senho e 1 retorna a imagem para a es- 
cala 1). Um numero negativo produz 
uma imagem em espelho do desenho. As 
mudancas de escala sao cumulativas. 



Assim, um aumento de 2 seguido de ou- 
tro de 2 leva a ampliacao para 4. 

Note que uma escala muito pequena 
no TRS-Color, como 0.0001 , e" conver- 
tida para IOE-4, mas aparece na tela co- 
mo 104. Esta e uma limitacao da rotina 
que desenha niimeros na tela e nao afe- 
ta a maneira com que o desenho € feito. 



10 DEF FN a(x)=(x/256)+128 

20 DEF FN b(x)«=(x/256)+85 

30 BORDER 0: INK 7: PAPER 0: 

CLS 

50 LET ln-1: LET ac-1 : LET 1- 

600 

60 LET f-0: LET x-0 : LET y-Q: 

LET iooin = l 

70 DIM a(l+l): DIM b(l): DIM 

c(l) : DIM d(l) 

80 LET a(l)=x; LET b{l)=y 

90 LET c(l)-x: LET d (1) -y 
100 LET 1$-INKE¥5 
110 IF iS="l" AND f AND l>ln 
THEN SOUND 0.1,0: PLOT FN a (a 
tin)), FN b(bUn)): DRAW FN a(c 
(ln))-PEEK 23677, FN b(d(ln))- 
PEEK 2367B: LET ln=ln+l: LET a 
(ln)=x: LET b(ln)-y: LET clln) 
»x: LET d(ln)-y: LET f=0 
120 IF i$="c" THEN LET x = : 
LET y=0: LET eUn>=x: LET d{ln 

)-y 

130 IF iS="m" THEN LET a£ln) = 

x: LET b(ln)=y 

140 IF i$="l" THEN GOSUB 420 

150 IF iS="o" THEN GOSUB 600 

160 IF l$-"d" THEN GOSUB 710 

170 IF i$-"z" THEN LET lv-0: 

GOSUB 840 

180 LET ap=256: IF CODE INKEYS 

<=41 THEN LET ap=2048 

190 IF INKE¥$="8" OB INKEYS="< 

■ AND x>-32768+ap THEN LET f- 

1: LET x-x+ap; LET e(ln)-c(ln) 

+ BP 

200 IF INKEYS-"5" OR INKEY$="S 
" AND x<3267S-ap THEN LET f — 
1: LET x-X-sp: LET cdn)-c(ln) 

-ap. 

210 IF INKEXS-"7" OR 1NKEYS-" ' 



" AND y>-22400+ap THEN LET f- 

-i: LET y-y+sp: LET d(ln)=d(ln 

)+sp 

220 IF INKEY$="6" OR INKEYS-"*. 

" AND y<!224Q0-ap THEN LET f=) 

: LET y-y-ap: LET d(ln)=d(ln)- 

ap 

230 GOSUB 250 

240 GOTO 100 

250 PRINT AT 1,2; INVERSE 1;" 

ESCALA:":: LET aS=STRS ac : IF 

LEN a$>4 THEN LET aS=aS { TO 4 

) 

255 PRINT INVERSE l;a$;AT 1, 

18;" LINHAS:"; ln-1 

260 LET bx=FN a (a (In)): LET by 

=FN b(b(ln)): LET ex=FN a(c(ln 

)) : LET ey-FN b(d(ln}) 

290 PLOT bx.by: PLOT ex.ey 

310 PLOT OVER libx.by: PLOT 

OVER l;ex,ey 

320 RETURN 

420 CLS 

430 INPUT "NOME DO ARQUIVO ?"; 

fS 

435 IF f3="" THEN GOTO 430 

440 LET ln=l: LET zoom-1 : LET 

sc=l 

460 LOAD t$ DATA a{) 

470 LOAD £3 DATA b() 

480 LOAD fS DATA c() 

485 LOAD fS DATA dt> 

490 LET ln=a(601) 

590 RETURN 

600 CLS 

610 INPUT "NOME DO ARftUIVO ?" i 

fS 

615 IF f$-»" THEN GOTO 610 

6Z0 LET lv=l: GOSUB 840 

625 LET a(601)=ln 

630 SAVE fS DATA a(l 

640 SAVE f$ DATA bt) 

650 SAVE fS DATA c() 

660 SAVE f$ DATA dO 

700 RETURN 

710 INPUT "NUMERO DE LINHAS A 

APAGAR ?"'k 

750 IF k=0 OH ln-fcOO THEN 

GOTO 830 

755 LET ln=ln-x 

760 LET x-a[ln)r LET y=b(ln) 

780 CLS 

790 LET cUn)=x: LET d(ln)=y 

BOO IF ln=I THEN GOTO 830 
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610 

ABS 

x-O: 

820 

630 

840 

B50 

3C : 

860 



IF ABS (c<ln-l))<32767 AND 

{d(ln-l))<22399 THEN LET 
LET y-0 

LET lv-2: GOSUB 840 

RETURN 

IF ln=0 THEN RETURN 

IF Ivl THEN LET zqob=1/ 

CLS : GOTO 920 

IF lv=2 THEN LET zoon-1 ! 
GOTO 920 

870 SOUND .1.10: INPUT "DIGITE 
A ESCALA - ZOOM "-.zoom 
890 IF zoom-0 THEN GOTO 1020 
910 CLS 
920 FOR u»l TO ln-1 

LET a (u) = Ca{u)-x) *zoom: 

b{u)"- (b{u)-y) "soon 

LET c (u) = (c(u)-xj *zoom: 

d (u) - (d (ti) -y) *znam 

IF ABS U(u})<32768 AND 

<b(u))<22400 AND ABS (c(u) 
K32768 AND ABS {d(u})<22400 
THEN PLOT FN a(a{u)),FN b(b(u 
)): DRAW FN a (c (u) } -PEEK 23677 
,FN b(d(u))-PEEK 23678 
960 NEXT u 

970 LET a(u) = (a(u)-x)*2oom: 
LET b{u) = (b(u)-y)*zoom 
980 LET e{u)= (c{u)-x) "zoom: 
LET d (u)Md Cu) -y) "zoom 
990 LET x=c{ln): LET y=d(ln) 
1000 IF ABS (a(ln>)>32767 OR. A 
S <b(lnj}>22399 THEN LET a (In)' 
=x: LET b(ln)=y 
1010 LET ac=sc*zooin 
10 30 RETURN 



930 
LET 
940 
LET 
950 
ABS 



II 



10 PMODE 4,1: COLOR 
EEN 1.0:V-247 
20 DIM NU3(10) :FOR 
AD NUS(I) :NEXT 
30 DEF FN A(X)=(X/ 
40 DEF FN B(X)=(X/ 
50 LN-0:SOl : L-6O0 
60 X'0: Y=^0:ZOOM=1 
70 DIM BX(L) ,BY(L) 
80 BX(0)-X:BY(0)*Y 
90 EXC0)-X:EY{0)=Y 
100 I$-INKEYS 
110 IF IS="L" AND 
EN LINE(FNA(BX(LN) 
)-[FNA(EX(LN)) ,FNB 
T:LN-LN+1:BX(LN)»X 
LN)=X:EY(LN)=Y:F-0 
120 IF IS="C" THEN 
N)=X:EY(LN)=Y 



0,1: PCLS : SCR 

1-0 TO 10: RE 

256J+128 
256) +96 

,EX(L) ,EY(L) 



F AND L>LN TH 
) , FNB(BYCLN)) 
(EY(LN))) , PSE 
:BYU-N)=Y:EX( 

X«0:Y=0:EX(L 



.M- 







s* 



r-Jr 




/ 
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I 
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130 IF IS' 

LN)=Y 

140 IF I5="I 

150 IF IS-"0 



M" THEN BX<LN)=X:BY{ 



GOSUB 420 

GOSUB 600 
160 IF I$="D" GOSUB 710 
170 IF IS-"Z" THEN LV-0:QOSUB B 
40 

180 IF PEEK {339) -191 THEN SP-20 
IB ELSE 5P-25& 

190 IF P£EKH43)=V AND X>-32768 
+SP THEN F^-l^-X-SPiEXtLNJ^EXt 
LN) -SP 

200 IF PEEK{344)-V AND X<32768- 
SP THEN F—1:X=X+SP:EX(LM)-EX{L 
Nl+KP 

210 IF PEEK(341)=Y AND Y>-24576 
+ SP THEN F = -i: Y=-Y-SP:EY(LN)=EY( 
LN) -SP 

220 IF PEEK(342)=V AND Y<24576- 
SP THEN F=-1:Y-Y+SP:EY<LN)=EYT( 
LN)+SP 

230 GOSUB 250 
240 GOTO 100 
250 SS$=STB$(SC) 
Z60 DRAWBMO, 183" : GOSUB 330 
270 SS$=STRS (LN) :DRAW"BM200, 183 
": GOSUB 330 

280 BX=FNA{BX{LN) } : BY=FNB (BY ( LN 
) ) :EX = FNA(EX(LN) ) : EY=FNB (EY (LN) 
) 

290 PSET{BX,BY) :PSET CEX.EY) 
300 FOR D=l TO 50:NEXT D 
310 PRESET(BX.BY) : PRESET (EX , EY) 
320 RETURN 

330 FOR 1=1 TO LEN(SSS) 
340 Dl=ASC(MID$(SSS,I.l))-48 
350 IF D1--2 THEN DI-10 
360 IF DKO OR DI>10 THEN 380 
370 DRAW"C1;XNU$(8) ;C0;BL8"-t-NUS 
(DI)+"BR2" 
380 NEXT I 
390 RETURN 
400 DATA R6D8L6U8BR8.BR6ND8BR2, 



R6D4 L6D4R6BRZBU8 . R6D4NL3D4NL6BR 
2BU8 , D4R6D4U8BR2 , NR6D4R6D4L6BE8 
410 DATA D8R6U4L6U4BR8,R6ND8BR2 
, R6D8L6U8D4R6U4BR2 , D4R6D4U8L6BR 
8.BR3BD8NR1BR5BU8 
420 CLS 

PRINT g256, "" ; :LINE INPUT"N 
DO ARQUIVO A CARREGAR ?":F 



430 

OME 

S 

440 

450 



LN=0: ZOOM=l:SC=l 

PCLS: SCREEN 1,0 
460 OPEN"I",#-l,F3 
470 INPUTI-l.NS 
480 LN-VAL(N$) 
490 FOR U=0 TO LN-1 
500 INPUT #-l,BX$,BY$,EX$.EY$ 
510 HX(U)-VAL(i)XS) :BY(U)=VAL(BY 
$) :EX(U)»VAL(EXS) :EY{U)=VAL (EYS 
) 

520 IF ABS{BX<U) K32768 AND ABS 
(BY(U) X24576 AND AUS (EX (U) } <32 
766 AND ABS(EY(U))<24576 THEN L 
INE (FNA(BX(U) ) , FNB(BY(U) ) ) - (FN 
A(EX(U)) , FNB(EY{U))) , PSET 
530 NEXT 

540 INPUT #-l,BX$.BYS,EX$,EYS 
550 BX{U)=VAL(BX$) :BY <U) -VAL {BY 
S) :EX{U>-VAL{EX$) : EY <U) -VAL {EYS 
) 

560 X-EX(LN) :Y-EY{LN) 
570 CLOSE t-1 
580 SCREEN 1.0 
590 RETURN 
600 CLS 

610 PRINT 6256,""; :LINE INPUT " 
NOME DO ARQUIVO A SALVAR ?";FS 
620 LV-l:GOSUB 840 
630 OPEN "0",|-1,F$ 
640 PRINT#-1,STRS{LN) 
650 FOR U=0 TO LN 
660 PRINT t-l,STR$(BX(U) ) , STRS ( 
BY(U)) , STRS (EX (U)) ,STRS(EY{U)) 
679 NEXT 
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680 CLOSE 1-1 

690 SCREEN 1,0 

700 RETURN 

710 CLS 

720 PRINT §256,"QUANTAS LINHAS 

QUER APAGAR " ; 

730 INPUT K 

740 SCREEN 1,0 

750 IF K-0 OR LN-K<0 THEN 830 

760 LN-LN-K 

770 X-BX(LN) :Y-BY(LN) 

780 PCLS 

790 EX(LN)-X:EY(LN}-Y 

800 IF LN-0 THEN 830 

810 IF ABS(EX(LN-1))<32767 AND 

ABS(E¥(LN-1)K24576 THEN X-0:Y- 



820 LV-2: GOSUB 840 

830 SCREEN 1,0; RETURN 

840 IF LN-0 THEN RETURN 

850 IF LV-1 THEN ZOOM-1/SC : PCLS 

:GOTO 920 

B60 IF LV-2 THEN ZOOM-1:GOTO 92 



870 CLS 

880 PRINT §256," DIGITE A ESCAL 

A / ZOOM "; 

890 INPUT ZOOM 

900 IF ZOOM-0 THEN 1020 

910 PCLSrSCREEN 1,0 

920 FOR U-0 TO LN-1 

930 BX(U) -<BX(U)-X) *ZOOMrBY(U)- 

(BY(U)-Y) *ZOOM 

940 EX(U>-tEX(U)-X)*ZOOM:EY(U)- 

(E¥ (U) -Y) *ZOOM 

950 IF ABS (BX(U) }<32768 AND ABS 
(BY(U))<24576 AND ABS(EX(U))<3 
2768 AND ABS (EY <U) ) C24576 THEN 
LINE(FNA{BX(U) ) , FNB{BY (U> ) ) - (FN 
A(EX(U)) ,FNB<EY(U))) , PSET 
960 NEXT 
970 BX(U) -<BX(U)-X)*ZOMM:BY(U)- 

(BY(U)-Y)*ZOOM 



980 EX(U)-(EX(U)-X)*Z0OM:EY(U)- 

(EY(U)-Y)*ZQOM 

990 X-EX(LN) :Y-EY(LN) 

1000 IF ABS{BX(LN))>32767 OR AB 

S(BY(LN) )>24576 THEN BX(LN>-X:B 

Y(LN)-Y 

1010 SC-SC*ZOOM 

1020 SCREEN 1 , 

1030 RETURN 



ai 



5 LOMEM: 16384 

10 HGR : HCOLOR= 3: HOME :DS = 

CHR3 (13) + CHR5 (4) 
30 DEF FN A(X) = {X / 256) + 
128 

40 DEF FN B(X) =■ (X / 256) + 
96 

50 LN = 0:SC = 1:L = 600;LM = 8 
192 

60 X = 0:Y = 0:ZOOM = 1:SP = 25 
6 
70 DIM BX(L) ,BY(L) . EX(L) ,EY(L) 



90 BX(0) = X:BY(0) = Y 

90 EX(O) = X:EY (0) = Y 

95 GO SUB 240 

100 GET 1$ 

110 IF 1$ = "L" AND F AND I. 

LN THEN HPLOT FN A(BXILN)), 

N B(BY(LN)) TO FN A(EX(LN)), 



= LN 
EX(LN) 
• 0:M2 



N BCEY(LN)): VTAB 21 : LN 
1:BX{LN) ■ X:BY(LN) = Y: 
= X:EY(LN) = Y:F = 0:M1 
= 0: GOSUB 320 
] 20 IF TS ■ "C" THEN X 

0:EX([.N) = X:EY(LN) = Y 
130 IF IS ■ ":" THEN BX(LN) = 
X:BY (LN) = V 

140 IF 1$ - "E" THEN GOSUB 42 
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ISO 



160 



1/0 



IF 13 



'S" THEN GOSUB 60 



IF IS - "D" THEN GOSUB 71 



IF TS ■ 



THEN LV 



OSUR 840 
180 



- 327 

SPiEX< 



IF I? - "J" AND X 
68 THEN 9 - - 1:X - X 
LN) = EX(LN) - SP 
190 IF IS ■ "K" AND X < 32768 
- SP THEN F= -i:X=X+SP:£ 
X(LN) = EX(LN) + SP 
.200 IF 15 = "I" AND Y > - 245 
?f> + SP THEN F = - i:T • I - A 
P:EY(LN) - EY(LN) - SP 
210 IF IS = "M" AND Y < 16128 
THEN F= - 1:Y - ¥ + SP:EY(LN) 

- EY(LN) + SP 
220 GOSUB 240 
230 GOTO 100 

240 IF M < > THEN POKE M,M 
E: POKE MO. MA 
245 VTAB 21: HTAB 
58: PRINT "ESCALA:' 
" ;LN 
250 BX = FN A(BX(LN)):BY ■ FN 

B{BY(LN) } :EX = FN A {EX (LN) ) : E 
Y - FN B(EY(LN) } 
260 LX - INT (EX / 64) :CX = I 
NT (EY / 8) - (8 * INT (EY / 6 
4>):TX - EY - (8 * INT (EY / 8 
)) 

270 M - LM + (LX * 40) 
128) + (TX * 1024) 
280 M * M + ( INT (EX / 7}) 
INT (BY / 64) 
8) - {8 * INT 
BY - (B * INT 



1: CALL - 9 
1 iSC. "LINHAS: 



290 LX 
NT (BY 
4)) :TX 
)) 
300 MO 

12B) + 
310 MO 



(CX 



CX - 
(BY / 
(BY / 



(LX * 

1024) 
( INT 



40) + (CX * 



CBX / 7)) 



> Ml THEN Ml = M:M 



LM 
(TX 

MO 
IF M < 
PEEK (M) 
IF MO < > M2 THEN M2 - MO 

PEEK (MO) 
HPLOT EX.EY; HPLOT BX.BY 
RETURN 
TEXT : HOME 

INPUT "NOME DO ARQUIVO A S 
\FS 

0:ZOOM = I :SC = 1 
HGH 

PBTNT DSi"OPEN " ; FS 
PRINT DS; "HEAD " ; FS 
INPUT LN 

FOR U - TO LM - 1 
INPUT BX(U) ,BY(U) , EX (U) , EY 



320 
E - 
330 
:MA 
34 
350 
420 
430 

ER LIDO: 
440 LN = 
450 
460 
470 
480 
490 
500 
(U) 

520 IF ABS <BX(U)) < 32768 AN 
D ABS (BY(U)) < 24576 AND ABS 
(EX(U)) < 32768 AND ABS (EY(U 
)) < Z4576 THEN HPLOT FN A(BX 
(U>). FN B(BY(U)) TO FN A(EX(U 



"NOME DO ARQUIVO A 3 

" * FS 
GOSUB 840 
OPEN "iFS 
WHITE " ;FS 
PRINT LN 
FOB U = TO LN 
PRINT BX(U): PRINT BY(U): 
PRINT EY(U) 



610 INPUT 

ER GRAVADO 

620 LV = 1 

630 PRINT DS: 

635 PRINT DS; 

640 

650 

660 

PRINT EX(U) 



670 NEXT 

680 PRINT DS; "CLOSE" 

700 RETURN 

710 TEXT : HOME 

720 INPUT "QUANTAS LINHAS QUER 

APAGAR ? " : K 
750 IF K ■= OR LN 
N 830 

760 LN - LN - K 
7 70 X = BX(LN) :Y 
780 HGH 

790 EX(LN) = X:EY(LN) = Y 
800 IF LN = THEN 830 
810 IF ABS (EX(LN - 1)) 
67 AND ABS (EY(LN - 1)) < 
6 THEN X - 0:Y = 
820 LV - 2: GOSUB 840 
RETURN 

THEN 



- K < THE 



BY(LN) 



327 
2457 



830 
840 
850 
SC: 
860 



IF LN = 

IF LV - 
GOTO 910 

IF LV * 
OTO 910 
870 VTAB 23 

INPUT 



RETURN 
THEN ZOOM = 1 



2 THEN ZOOM = 1 



ESCALA DO ZOOM ? 



1 THEN LV 



J : 



880 
ZOOM 

900 IF ZOOM 
OTO 850 

905 IF ZOOM - THEN ZOOM 
910 HGR 

920 FOR U = TO LN - 1 
930 BX(U) = (BX(U) - X) * ZOOM: 
BY(U> - (BY(U> - Y) * ZOOM 
940 EX(U) ■ (EX(U) - X) * ZOOM: 
EY(U) - (EY(U) - Y) * ZOOM 
950 IF ABS {BX(U>) < 32768 AN 
D ABS (BY(U)} < 24576 AND ABS 
(EX(U)) < 32768 AND ABS (EY(U 
)) < 24576 THEN HPLOT FN A(BX 
(U)). FN B(BY(U)) TO FN A{EX(U 
>), FN B(EY(U>) 
960 NEXT 

970 BX{U) = (BX(U) - X) * ZOOM: 
BY{U) = (BY(U) - Y) * ZOOM 
980 EX(U) - 1EX(U) - X) * ZOOM: 
EY(U) * IEY(U) - Y) * ZOOM 
990 X « EX(LN) :Y - EY(LN) 
1000 IF ABS (BX(LN)) > 32767 
OR ABS (BY UN)) > 24576 THEN B 
X(LN) - X:BY(LN) - Y 
1010 SC - SC * ZOOM 
1030 RETURN 



m 



)). 


FN B(EY(UJ) 


5 MAXFII.ES=2:CLEAR 2000 


530 


NEXT 


10 OPEN "GRP:" FOR OUTPUT AS 


540 


INPUT BX(U) ,BY(U) ,EX(U) , EY 


20 DEFFNA(X)={X/256)+128 


(U) 




30 DEFFNB(X)-{X/256)+96 


560 


X - EX(LN) :Y « EY (LN) 


40 LN=0:SC=1:L=600:SP=256 


570 


PRINT DS; "CLOSE" 


50 X=0:Y=0:ZOOM=1 


590 


RETURN 


60 DIM BX(L) ,BY(L) ,EX(L) ,EY{I 


1054 600 


TEXT : HOME 


70 BX(0)=X:BY{O)=Y 






M 



80 EX(0) 
90 GOSUB 
100 IS-I 
110 IF I 
EN LINE 
))-(FNA( 
:LN=LNH 
N)=X:EY( 
120 IF I 
N)=X:EY ( 
130 IF J 
LN) =Y 
140 IF 



150 
160 
170 
40 



IF 
IF 
IF 



»X:BY(0)-Y 

1200 
NKEYS 

S="L" AND F AND L>LN TH 
(FNA(BX(LN) ) .FNB(BYUN) 
EX(LN)) .FNB(EYUN) ) ) . 15 
:BX(LN)=X:BY(LN)=Y:EX(L 
LN)=Y:F=0 

$^"C" THEN X = 0:Y = 0:EXU 
LN)=Y 
$="M" THEN BX(LN)=X:BY( 

S="F," THEN GOSUB 420 

S="S" THEN GOSUB 600 

$="D" THEN GOSUB 710 

THEN LV=0:GOSUB 




II 
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iiiiiiin 



1B0 IF IS=CHR$(29) AND X > -327 

68! + SP THEN F=-l :X=X-SP : EX{LN 

>-EX(LN)-SP 

190 IF IS=CHRS(28) AND X < 3276 

81 -SP THEN F = -l :X=X+SP:EX(LN)= 

EX(LN)+SP 

200 IF I$=CHRS(30) AND Y>- 24576 

+3P THEN F=-1:Y=Y-SP:EY(LN)=EY( 



LN) -SP 




210 


IF I$-CHRS<31) AND 


Y<24576- 


SP THEN F = -l:Y=Y+SP:E¥(LN)=EYa 


N)+SP 






220 


GOSUB 250 






230 


GOTO 100 






250 


BX-FNA(BX(LN) ) :BY- 


"NB{BY{LN 


)) :! 

J 

260 

.1 
270 
. 1 
280 
F 


iX=FNA(EX(LN)) 


:EY=FNB(EY(LN) 


PUT SPRITE 1. 


(BX-4 


,BY-4) ,15 


PUT SPRITE 2, 


(EX-4 


.EY-4) ,15 


LINE (10, ISO) 


-{255 


,191) ,4,B 



290 PRESET (10.180) :PRINTI1,"ES 

C:-:SC;" LIN:";LN 

300 RETURN 

420 SCREENO 

430 INPUT'NOME DE ARO.UTVO A SER 

CARREGADO:" ; F$ 
440 LN«=0:ZOOM=1 :SC-1: GOSUB 1200 
450 F3="CAS:"+F$ 
460 OPEN F$ FOR INPUT AS |2 
470 INPUT !2.LN 
490 FOR U=0 TO LN-1 
500 INPUT |2,BX,BY.EX,EY 
510 BX(U)-BX;BY(U)=BY:EX(U)-EX: 
EY(U)=EY 

520 IF ABS{BXCU)K3276B! AND AB 
SIBY(U))<24576 AND ABS(EX(U))<3 
2768! AND ABS (EY (U) X24576 THEN 

LINE(FNA(BXtU) ) ,FNB(BY(U) ))- (F 
NA(EX(U) ) ,FNB(EY(U))) ,15 
5 30 NEXT 

540 INPUT! 2, BX,BY,EX,EY 
550 BX CU) -BX : BY {U) -BY : EX (U) -EX : 
EY(U)=EY 

560 X=EX(LN) : Y=EY (LN) 
570 CLOSE 12 
590 RETURN 
600 SCREENO 

610 INPUT"NOME DE ARQUIVO PARA 
GRAVAR:" ; FS : F$="CAS : "+F3 
620 LV=J : GOSUB 1200: GOSUB 840 
630 OPEN F$ FOR OUTPUT AS |2 
640 PRINT! 2, LN 
650 FOR (1=0 TO LN 
660 PHTNT!2,BX(U) , BY (U) ,EX(U) ,E 
Y(U) 

670 NEXT 
680 CLOSE !2 
700 RETUfiN 
710 RCREENQ 

720 INPUT" QUER APAGAR QUANT AS L 
INHAS";K 
730 GOSUB 1200 

750 IF K=0 OR LN-K<0 THEN 820 
760 LN=LN-K 
770 X=BX{LN) :Y=BY<LN: 
790 EX(LN) =X:EY<LN)-Y 
800 IF LN=0 THEN 830 
LUO IF ABS(EXlLN-]>)<32767 AND 
ABS (EY (LN-1) X24576 THEN X = 0:Y = 


820 LU^2:G03UB B40 
830 RETURN 

840 IF LN=0 THEN RETURN 
850 IF LV=1 THEN ZOQM= L/SC:«OTO 

920 
860 IF LV=2 

870 SCREENO 



THEN ZOOM=1:GOTQ 92 




IDtlAS PARA JOGO 

Quando voce usar o programa apre- 
sentado neste artigo como urn jogo, a 
tarefa mais diflcil sera fazer com que 
o "tesouro" oculto na figura nao apa- 
reca como uma mancba rnuito 6bvia 
para quern o esta procurando. 

Existem, para isso, varios truques. 
Urn deles consists em executar um de- 
senho bem elaborado e ocultar o tesou- 
ro em um dos detalhes. A difieuldade 
sera ainda maior se voce desenhar os 
detalhes em diferentes graus de am- 
pliagao, Isso obrigara seu oponente a 
tambem utilizar varios graus de amplia- 
cao na procura do tesouro. 

Outro truque e a inclusao, no dese- 
nho, de pequenos detalhes parecidos 
com o tesouro, quando se utilizam as 
reducfies. Seu oponente tera que inves- 
tigar um a um, perdendo precioso tem- 
po com isso. 

A diversio sera maior se voce ado- 
tar alguma forma de contagem de pon- 
tos. Verifique, por exemplo, o numero 
de vezes que o jogador muda a escala 
de aumento, ou o numero de movimen- 
tacoes que ele precise fazer ate achar 
o tesouro. Outra alternative e medir o 
tempo transcorrido entre o infcio e o fim 
da busca. 



880 INPUT "ESCALA DO ZOOM :"; ZOO 
M 

890 GOSUB 1200 
900 IF ZOOM=0 THEN 1030 
920 FOR U»Q TO LN-1 
930 BX(U)=(BX(U)-X)*ZOOM:BY(U)= 
(BY(U)-Y)*ZO0M 

940 EX{U)=(EX(U}-X)"ZOOM:EY(U>= 
(EY(U)-Y)*ZOOM 

950 IF ABS(BX(U) K32768! AND AB 
StBYCU) X24576 AND ABS(EX(U)><3 
2768! AND ABS (EY (U) )<24576 THEN 
LINE(FNA(BX(U) > , FNB {BY (U) ) } - (F 
NA(EX(U)) ,FNB(EY(U))) ,15 
960 NEXT 

970 BX(U) -{BX(U) -X) "ZOOM : BY (U) - 
<BY(U)-Y)*ZOOM 

980 EX(U)«(EX(U>-X)*ZOOM:EY(U)- 
(£Y(UXY)*ZOOM 
990 X-EX(LN) :Y-EY(Ln> 
1000 IF ABS{BX(LN) >>32767 OR AB 
S(BY(LN))>24576 THEN BX(LN)-X:B 
Y(LN>-Y 

1010 SC-SC*ZOOM 
1030 RETURN 

1100 DATA 0,0,16,56,16,0.0,0 
1200 COLOR 15, 4. 4: SCREEN 2,0: RE 
STORE 

1210 FOR 1-1 TO 8: READ S:S3=S$+ 
CHRS(S) :NEXTrSPRITE$(l)=S$ 
1220 RETURN 
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PERPECIAS NO 
REINO DE NETUNO 



Depois de viver mil aventuras em terra 
firme, Willie - o irtfortunado 
herd! do jogo Avalanche - tern que se 
defrontar com os perigos de urn mar 
agitado. Veja como ele se sai dessa. 



Willie esti agora num morro a beira- 
mar. Mas nao tern tempo de admirar a 
paisagem: se ele perder a calma quando 
as pedras estiverem rolando morro abai- 
xo, on se tremer com o baruJho das co- 
bras, descobrira tardiamente que esta 
em vias de afogar-se. Para criar o cena- 
rio adequado, devemos providenciar va- 
rios baides de agua do mar. 



A rotina seguinte da im'cio ao avan- 
co da mare; logo, e melhor que Willie 
nao perca tempo no caminho e retorne 
rapidamente a seu gostoso piquenique. 

10 REM org 58882 

20 HEM Bea Id be, 57312 

30 REM Id a, (57353) 

40 REM bit 2, a 

50 REM jr z,apt 

60 REM Id be, 57320 

70 REM apt Id hi , (57354) 

80 REM Id a, 15 

90 REM Id d,32 

100 REM epu push de 

110 REM push be 

120 REM call print 

130 REM inc hi 

140 REM pop be 

150 REM pop de 

160 REM dec d 



170 


REM 


jr nz.apu 


180 


REM 


Id a, (57353) 


190 


REM 


dec a 


200 


REM 


Id (57353) ,a 


210 


REM 


jr nz,srf. 


220 


REM 


Id 3,10 


230 


REM 


Id (57353) ,a 


240 


REM 


Id hi, (57354) 


250 


REM 


Id de,32 


260 


REM 


abc hi , de 


270 


REM 


Id (57354) ,hl 


280 


REM 


art ret 


290 


REM 


org 58217 


300 


REM 


print * 




Embora pareca que temos na tela urn 
trecho do mar, hi na verdade apenas 
dois caracteres. O primeiro ocupa as oi- 
to posicSes do endereco 57312 em dian- 
te, e o segundo as oito posicSes a partir 
do endereco 57320. Voce" pode achar que 
isso nao e agua suficiente nem mesmo 
para molhar os pes de nosso her6i. Mas, 
quando esses dois caracteres forem im- 
pressos consecutivamente em linhas al- 
ternadas, voce eonstruira rapidamente 
um oceano. 

Como o mar sera impresso na tela na 
proporcio de um caractere por vez, re- 
correremos a rotina print de novo . Assim , 
os parametros necessarios devem ser 
carregados nos registros corretos. Como 
de costume, o par BC carrega o apon- 
tador do primeiro byte de dados. O acu- 



mulador A carrega o c6digo da cor e o 
par HL contem a posicao da tela onde 
o dado sera impresso. Depois desse lem- 
brete, carregamos o par de registros BC 
com o endereco do byte iniciad que for- 
ma o primeiro caractere de mar, 

A variavel no endereco 57353 £ cha- 
mada variavel de atraso do mar; e" ela 
que controla o movimento das aguas. O 
bit 2 6 usado como uma baliza para in- 
formar ao processador qua! dos dois ca- 
racteres de mar devera ser impresso na 
ultima linha. 

O conteiido do atraso do mar e colo- 
cado no acumulador e a instrucao bit 2,a 
analisa esse bit em particular. Se o seu 
valor for 0, a instrucao jr z que vem em 
seguida faz o processador saltar para a 
pr6xima instrucao, Mas, se o valor do 
bit 2 € I , o salto nao ocorre e o par BC 
e carregado com o endereco do padrao 
inicial do segundo caractere de mar. 



MAR AGITADO 



O par de registros HL e carregado 
com o conteiido das posicoes de memo- 
ria 57354 e 57355. Esses enderecos con- 
tern a posicao do mar que esta sendo im- 
pressa no rnomento e que foi inicializa- 
da pela rotina da parte sete de Avalan- 
che com a posicao do canto inferior es- 
querdo da tela. 

O acumulador A e carregado com o 
niimero 1 5 para dar ao mar a tonalida- 
de azul adequada. O registro D, por sua 
vez, 6 carregado com o niimero 32; ele 
serd usado como contador para somar 
32 colunas atraves da tela. 

O contador em D deve ser preserva- 
do intacto. Se o processador utilizar o 
registro D na rotina print, ele se perde- 
ra; assim, o par DE e" guardado na pi- 
lha. Os dados para o caractere de mar 
serao usados outras vezes, ja que cada 
linha de mar e formada pelo mesmo ca- 
ractere impresso 32 vezes. Dessa forma, 
o par BC 6 guardado na pilha tambem. 
A rotina print € chamada e os oito bytes 
do caractere de mar sao impresses no lu- 
gar correto da tela. 

O par HL e entao incrementado, mo- 
vendo o apontador de tela para a pr6- 
xima posicao ao longo da linha, Ao 
mesmo tempo, o apontador de dados e 
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III 



AVAN C O DA MARE 

IMPRESSAO DOS CARACTERES 

DO MAR 

TONALIDADE DO MAR 
VARlAVEL DE ATRASO 



REPET1C AO 



DOS CARACTERES 



EM LINHAS ALTERNADAS 



A ROTINA CHARPR 



MAR BR A V 10 



levado de volta para o inicio dos padroes 
do caractere (ele tinha sido incrementa- 
do durante a rotina print), sendo recu- 
perado da pilha. O contador de colunas 
e tambdm recuperado da pilha e decre- 
mentado. Se ele nao foi reduzido a ze- 
ro, a instrucao jr nz retornara ao initio 
do laco e o processador imprimira o ca- 
ractere de mar na posicao seguinte da te- 
la ao longo dessa linha, 

Quando o contador em D tiver sido 
reduzido a zero, o processador saltara 
para fora do laco e prosseguira com a 
prdxima instrucao. 



TEMPO E MARE 



O atraso do mar e carregado sobre o 
acumulador, decrementado e armazena- 
do de volta em 57353. Se ele nao tiver 
sido reduzido a 0, a instrucao jr nz fa- 
ra o processador saltar as instrucoes res- 
tantes ate o final da rotina para a qual 
ele retornara. Se ele tiver sido reduzido 
a zero, o atraso do mar sera ajustado pa- 
ra 10, 

O apontador de posicao do mar e car- 
regado em HL; 32 e carregado em DE 
e subtraido de HL; o resultado e arma- 
zenado de volta no apontador de loca- 
lizacao do mar em 57354. Assim, na 
prdxima vez que a rotina for chamada, 
o mar tera subido tuna linha. 



O programa a seguir inicia a expan 
sao da mare. 



190 LEAK -256.X 

200 STX 1824 7 

210 SRT HTS 

220 CHARPR EQU 19402 

Para testar esse programa, vocS pre- 
cisa carrega-lo no resto de Avalanche e 
executar a seguinte rotina: 

5 POKE S.H467F,&.H4C:P0KE J.H4C80 , 

LHF3 

10 EXEC 19426 

20 FOR G-l TO 160 

30 EXEC 1967B 

40 FOR H-l TO 100: NEXT H,G 

50 GOTO 50 

Quando esta rotina estiver funcio- 
nando, a mare subira ate que a tela es- 
teja completamente cheia de agua. lsso 
nunca aconteceria durante o jogo, pois 
Willie teria se afogado antes e o jogo 
voltaria ao infcio. 



PEQUENAS G0TAS DE AGUA 



Embora aparentemente tenhamos um 
trecho do mar representado na tela, exis- 
tem na verdade apenas dois caracteres 
importantes na tabela de dados. O pri- 
meiro desses caracteres ocupa os oito en- 
derecos a partir de 18206 e o segundo 
ocupa os oito a partir de 18222. Quan- 
do esses dois caracteres forem impres- 
sos repetidamente em linhas altemadas, 
voce tera um oceano. 

Como o mar sera impresso na tela do 
microcomputador, segundo um ritmo de 
um caractere de cada vez, a rotina 
CHARPR sera usada de novo. Logo, 
seus parametros tern de ser carregados 
nos registros corretos. Como sempre, o 
registro U carrega o apontador do pri- 
meiro byte de dados; entao, a prdpria 
tabela de dados atua como pilha do 
usuario. O registro X, pqr sua vez, car- 



10 


ORG 19678 


20 


SEA LDU #18206 


30 


LDA 18246 


40 


BITA #2 


50 


BEQ SPT 


60 


LDU 113222 


70 


SPT LDX 1824? 


80 


LDA 116 


90 


SPTI PSHS A.U 


100 


JSR CHARPR 


110 


PULS U.A 


120 


DECA 


130 


BNE SPTI 


140 


DEC 18246 


150 


BNE SRT 


160 


LDA 110 


170 


STA 18246 


180 


LDX 18247 
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rega a posigao da tela onde o dado sera 
irapresso. U e entao carregado com o 
endereco do primeiro byte que forma o 
primeiro caractere de mar. 

A variivel no endereco 1 8246 e cha- 
mada variavel de atraso do mar e con- 
trola o movimento da rnare\ O bit 2 des- 
sa variavel e" usado como uma baliza pa- 
ra informar ao processador qual carac- 
tere de mar sera usado na linha que es- 
ta sendo impressa. 

O conteudo do atraso do mar e car- 
regado no acumulador e a instrucao BI- 
TA #2 analisa esse bit em particular. Se 
o valor do bit nao for 1, a instrucao 
BEQ fara o processador pular a proxi- 



ma instrucao atraves do rbtulo SPT. 
Mas, se o valor for 1, o salto nao ocor- 
rera e U sera carregado com o endereco 
do primeiro byte que forma o segundo 
caractere de mar. 



PRIMEIRO CARACTERE 



O registro X e carregado com o 

conteudo da posicao de mem6- 

ria 18247, Esse endereco car- 

rega a posicao em que 

o mar esta sendo 



impresso no 
momertto 
em que 
foi inicia- 
lizada pe- 
la rotina da parte sete de 
Avalanche no canto inferior esquerdo 
da tela. O acumulador A e carregado 
com 1 6, e sera usado como contador pa- 
ra fazer com que dezesseis caracteres de 
mar sejam impressos. 

Esse contador precis a ser preservado 
intacto enquanto o processador execu- 
ta a rotina CHARPR; portanto, guar- 
damos A na pilha do usuario. Os dados 
para o caractere de mar serao usados va- 
rias vezes, porque cada Linha do mar e 
feita do mesmo caractere — assim, o re- 
gistro U tambem e guardado na pilha. 
A rotina CHARPR e chamada e os oi- 
to bytes do caractere de mar sao impres- 
sos no lugar correto da tela. 



VEJA MAR 



A rotina CHARPR incrementa auto- 
maticamente o registro X, de modo que 
ele esteja pronto para imprimir o pro- 
ximo caractere ao longo da linha. O 
apontador de dados 6 movtdo de volta 
ao im'cio dos bytes que formam o carac- 
tere de mar por meio de sua recupera- 
cio da pilha; esse apontador foi incre- 
mentado durante a rotina CHARPR. O 
contador tambem e recuperado da pilha. 

O contador e entao decrementado e, 
se ainda nao for zero, a instrucao BNE 
saltara para o laco onde o processador 
imprime o caractere de mar na proxima 
posicao ao longo da linha atual. 

Quando o contador em A ja for ze- 
ro, o processador saira do laco e execu- 
tara a instrucao seguinte. 



MAR BRAVIO 



O prdximo passo consiste em decre- 
mentar o atraso do mar. Se esse atraso 
nao tiver sido reduzido a zero, a instru- 
cao BNE fara o processador saltar as 
proximas instrucdes at£ o final da roti- 
na, para onde ele retornara. 

Se ele tiver sido reduzido a zero, o 
atraso do mar sera reajustado com va- 
lor 1 0. O apontador de posicao sera en- 
tao carregado no registro X e 256 sub- 
traido dele. O resultado e armazenado 
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de volta nos enderecos que guardam es- 
se apontador, ou seja, 18247. Assim, da 
pr6xima vez que essa rotina for chama- 
da, o mar subira uma linha. 



A rotina que vem a seguir inicia a ex- 
pansao da mare; por isso, e melhor Wil- 
lie andar o mais rapido possivel e recu- 
perar o seu lanche. 



10 


org 54218 


20 


sea Id b,72 


30 


id a, (-5213) 


40 


bit 2. a 


50 


jr z.apt 


60 


Id b,76 


70 


apt Id hi, (62407) 


80 


)d de, (-5212) 


90 


add hl,de 


100 


Id a,b 


110 


Id be. 32 


120 


call 86 


no 


Id a, (-5213) 


140 


dec a 


150 


Id (-5213) .a 


160 


jr nz.srt 


170 


Id a, 10 


180 


Id (-5213). a 


1 90 


Id hi . (-5212) 


200 


Id de,32 


2]0 


3bc hl.de 


220 


Id (-521 2), hi 


2 30 


art ret 


240 


end 



na verdade s6 existem dois padroes di- 
ferentes. O primeiro tem o codigo 72 na 
tabela de padroes e p segundo e o pa- 
drao de codigo 76. A primeira vista, a 
quantidade de agua nao e" suficiente nem 
mesmo para molhar os pes de Willie. 
Mas, quando esses dois padroes forem 
impressos consecutivamente em linhas 
alternadas, em pouco tempo teremos, na 
tela, um oceano. 

Como o mesmo padrao de mar sera 
impresso 32 vezes na mesma linha, ocu- 
pando-a completamente, usaremos a ro- 
tina 86 da ROM. Essa rotina escreve um 
numero na VRAM a partir de um ende- 
reco e um certo numero de vezes. 

Neste programa, a rotina 86 da ROM 
sera usada para colocar o codigo de um 
padrao de mar varias vezes na tabela de 
nomes da VRAM; isso equivale a impri- 
mir o mesmo caractere diversas vezes em 
seqiiencia, ja que a tela e um reflexo da 
tabela de nomes. 

Os parametros necessaries devem ser 
carregados nos registros corretos, antes 
de se chamar a rotina 86. E precise tam- 



bdm que o acumulador A contenha o co- 
digo do padrao que vai ser impresso. O 
par HL, por sua vez, contem a posicao 
da tabela de nomes — ou seja, da tela, 
onde o padrao comecara a ser impresso 
e o par de registros BC carrega o nume- 
ro de vezes que ele sera impresso. Feito 
o lembrete, continuemos a examinar o 
programa. O codigo do padrao do pri- 
meiro caractere de mar e colocado no re- 
gistro B. 

A variavel no endereco - 5213 & cha- 
mada variavel de atraso do mar; e ela 
que controla a subida da mare. O bit 2 
dessa variavel e usado como baJiza pa- 
ra indicar ao processador qua! dos dois 
caracteres de mar deve ser impresso na 
linha atual. 

O conteudo do atraso do mar e colo- 
cado no acumulador e a instrucao bit 
2, a analisa esse bit isoladamente, Se o 
seu valor for 0, a instrucao jr z que vem 
em seguida fara o processador saltar a 
proxima instrucao. Mas, se o valor do 
bit 2 for 1 , o salto nao sera realizado e 
o registro B sera carregado com o c6di- 
go 76 do padrao do segundo caractere 
de mar. 



MAR AGITAD0 



O par HL € carregado com o endere- 
co inicial da tabela de nomes da VRAM. 



Embora tenhamos a impressao de 
que ha um trecho do mar na nossa tela, 
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que esta armazenado nas posicoes 62407 
e 62408. O par DE, por sua vez, e" car- 
regado com o valor contido nas posicdes 
-5212 e -5211; esse niimero corres- 
ponde a posicao na tela do comeco da 
linha que esta sendo impressa atualmen- 
te e foi inicializado pela rotina da parte 
sete de A vaianche para indicar o canto 
inferior esquerdo da tela. Os conteudos 
de HL e DE sao somados em HL, que 
passa a abrigar o endereco correspon- 
dente na tabeta de nomes. 

O acumulador A recebe entao o c6- 
digo do padrao que ate" agora estava em 
B. Ao mesmo tempo, o par BC e carre- 
gado com o niimero de vezes em que o 
padrao deve ser impresso na tela — ou 
seja, 32, que corresponde ao niimero de 
colunas na linha. A seguir, e chamada 
a rotina 86 da ROM; nesse momento, 
a linha de mar ja estara impressa. 



TEMPO DE SUBIDA 



O atraso do mar e carregado no acu- 
mulador, decrementado e armazenado 
de volta no endereco -5213. Se o seu 
valor ainda nao tiver sido reduzido a ze- 
ro, a instrucao jr nz fara com que o pro- 
eessador salte as instrucoes restantes ate 
o final da rotina, para a qual ele re- 
tomara. 



Por outro lado, se ele tiver sido re- 
duzido a zero, o atraso do mar sera ajus- 
tado para 10. 

O apontador de posicao do mar e car- 
regado em HL e o niimero 32 e subtrai- 
do deie por meio do par DE; o resulta- 
do e armazenado de volta no apontador 
de posicao em - 5212 e - 521 1, Assim, 
na proxima vez que a rotina for chama 
da, o mar tera subido uma linha. 

Como voce ja deve ter notado, 
o atraso do mar controla o tem- 
po que a rotina passara impri- 
mindo a primeira linha; es- 
gotado esse tempo, a roti- 
na e ajustada para subir uma 
linha a cada dez chamadas. 

Depois de jogar algumas vezes, 
calvez voce queira reforcar a dose de 
emoeao de Avalanche. 

Torne a aventura mais dificil alter- 
nando a variavel de atraso. 



















LINHA 


FABRICANTE 


MODELO 
Thor2010 


FABRICANTE 


MODELO 


PAIS 


LINHA 


Apple 11 + 


Appletronlca 


Appletronica 


Trior 2010 


Brasil 


Apple II + 


Apple 11 + 


CCE 


MC-4000 Exato 


Apply 


Apply 300 


Brasil 


Sinclair ZX-81 


Apple 11 + 


CPA 


Absolutus 


CCE 


MC-4000 Exato 


Brasil 


Apple II + 


Apple 11 + 


CPA 


Polaris 


CPA 


Absolutus 


Brasil 


Apple II + 


Apple 11 + 


Digitus 


DGT-AP 


CPA 


Polaris 


Brasil 


Apple II + 


Apple 11 + 


Dismac 


D-8100 


Codimex 


CS-6508 


Brasil 


TRS-Color 


Apple 11 + 


ENIAC 


ENIAC II 


Digitus 


DGT-100 


Brasil 


TRS-80 Mod.lll 


Apple 11 + 


Franklin 


Franklin 


Digitus 


DGT-1000 


Brasil 


TRS-80 Mod.lll 


Apple 11 + 


Houston 


Houston AP 


Digitus 


DGT-AP 


Brasil 


Apple II + 


Apple 11 + 


Magnex 


DM II 


Dismac 


D-8000 


Brasil 


TRS-80 Mod. I 


Apple 11 + 


Maxitronica 


MXZ001 


Dismac 


D-8001/2 


Brasil 


TRS-80 Mod. I 


Apple 11 + 


Maxitronica 


MX-48 


Dismac 


D-8100 


Brasil 


Apple II + 


Apple 11+ 


Maxitronjca 


MX-64 


Dynacom 


MX-1600 


Brasil 


TRS-Color 


Apple 11+ 


Maxitronica 


Maxitronic 1 


ENIAC 


ENIAC II 


Brasil 


Apple II + 


Apple 11+ 


Microcraft 


CrattlPtus 


Engebras 


AS-1000 


Brasil 


Sinclair ZX-81 


Apple 11+ 


Milmar 


Apple II Plus 


Filcres 


NEZ-8000 


Brasil 


Sinclair ZX-81 


Apple 11+ 


Milmar 


Apple Master 


Franklin 


Franklin 


USA 


Apple II + 


Apple 11 + 


Milmar 


Apple Senior 


Gradients 


Expert GPC1 


Brasil 


MSX 


Apple 11 + 


Omega 


MC-400 


Houston 


Houston AP 


Brasil 


Apple II + 


Apple 11 + 


Polymax 


Maxxi 


Kemitron 


NajaBOO 


Brasil 


TRS-80 Mod.lll 


Apple 11 + 


Polymax 


Poly Plus 


LNW 


LNW-80 


USA 


TRS-80 Mod. 1 


Apple It + 


Spectrum 


Mlcroengenho 1 


LZ 


Color 64 


Brasil 


TRS-Color 


Apple 11 + 


Spectrum 


Spectrum sd 


Magnex 


DM II 


Brasil 


Apple 11 + 


Apple 11 + 


Suporte 


Venus II 


Maxitronica 


MX-2001 


Brasil 


Apple 11 + 


Apple!t + 


Sycomig 


SICI 


Maxitronica 


MX-48 


Brasil 


Apple 11 + 


Apple 11 + 


Unitron 


APII 


Maxitronica 


MX-64 


Brasil 


Apple 11 + 


Apple 11 + 


Victor do Brasil 


Elppa II Plus 


Maxitronica 


Maxitronic I 


Brasil 


Apple II + 


Apple 11 + 


Victor do Brasfl 


ElppaJr. 


Microcraft 


Craft ll Plus 


Brasil 


Apple 11 + 


Apple lie 


Microcraft 


Craft lie 


Microcraft 


Caftlle 


Brasil 


Apple He 


Apple He 


Microdigital 


TK-3000lle 


Microdigital 


TK-3000lle 


Brasil 


Apple Me 


Apple He 


Spectrum 


Mlcroengenho II 


Microdigital 


TK82C 


Brasil 


Sinclair ZX-81 


MSX 


Gradlente 


Expert GPC-1 


Microdigital 


TK-83 


Brasil 


Sinclair ZX-81 


MSX 


Sharp 


HotbltHB-8000 


Microdigital 


TK-85 


Brasil 


Sinclair ZX-81 


Sinclair Spectrum 


Microdigital 


TK-90X 


Microdigitai 


TK-90X 


Brasil 


Sinclair Spectrum 


Sinclair Spectrum 


Timex 


Timex 2000 


Microdigital 


TKS-800 


Brasfl 


TRS-Color 


Sinclair ZX-81 


Apply 


Apply 300 


Milmar 


Apple II Plus 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Engebras 


AS-1000 


Milmar 


Apple Master 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Filcres 


NEZ-8000 


Milmar 


Apple Senior 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-82C 


Multix 


MX-Compacto 


Brasil 


TRS-80 Modi V 


Sinclair ZX-81 


Microdigital 


TK-83 


Omega 


MC-400 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-85 


Polymax 


Maxxi 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Prologica 


CP-200 


Polymax 


Poty Plus 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Ritas 


Ringo R-470 


Prologica 


CP-200 


Brasil 


SlnclairZX-81 


Sinclair ZX-81 


Timex 


Timex 1000 


Prologica 


CP-300 


Brasil 


TRS-80 Mod.lll 


Sinclair ZX-81 


Timex 


Timex 1500 


Prologica 


CP-400 


Brasil 


TRS-Color 


TRS-80 Mod. I 


Dlsmac 


D-8000 


Prologica 


CP-SOO 


Brasil 


TRS-80 Mod.lll 


TRS-80 Mod. I 


Dlsmac 


D-8001/2 


Ritas 


Ringo R-470 


Brasil 


Sinclair ZX-81 


TRS-80 Mod. I 


LNW 


LNW-80 


Sharp 


Hotbit HB-800( 


I Brasil 


MSX 


TRS-80 Mod. I 


Video Genie 


Video Genie t 


Spectrum 


Mlcroengenho 


I Brasil 


Apple 11 + 


TRS-80 Mod.lll 


Digitus 


DGT-100 


Spectrum 


Mlcroengenho 


II Brasil 


Apple He 


TRS-80 Mod.lll 


Digitus 


DGT-1000 


Spectrum 


Spectrum ed 


Brasil 


Apple 11 + 


TRS-80 Mod.lll 


Kemitron 


NajaSOO 


Suporte 


Venus II 


Brasil 


Apple 11 + 


TRS-80 Mod.lll 


Prologica 


CP-300 


Sycomig 


SICI 


Brasil 


Apple 11 + 


TRS-80 Mod.lll 


Prologica 


CP-500 


Sysdata 


Sysdata III 


Brasil 


TRS-80 Mod.lll 


TRS 80 Mod.lll 


Sysdata 


Sysdata III 


Sysdata 


Sysdata IV 


Brasil 


TRS-80 Mod.IV 


TRS-80 Mod.lll 


Sysdata 


Sysdata Jr. 


Sysdata 


Sysdata Jr. 


Brasil 


TRS-80 Mod. II 1 


TRS80Mod.IV 


Multix 


MX-Compacto 


Timex 


Timex 1000 


USA 


Sinclair ZX-81 


TRS-80 Mod.IV 


Sysdata 


Sysdata IV 


Timex 


Timex 1S0O 


USA 


Sinclair ZX-81 


TRSColor 


Codimex 


CS-6508 


Timex 


Timex 2000 


USA 


Sinclair Spectrum 


TRS-Color 


Dynacom 


MX-1600 


Unitron 


APII 


Brasil 


Apple 11 + 


TRSColor 


LZ 


Color 64 


Victor do Brasil 


Elppa II Plus 


Brasil 


Apple 11 + 


TRSColor 


Microdigital 


TKS-800 


Victor do Brasil 


Elppa Jr. 


Brasil 


Apple 11 + 


TRSColor 


Prologica 


CP-400 


Video Genie 


Video Genie I 


USA 


TRS-80 Mod. 1 


INPUT foi especialmente projetado para 


_ 


■ d r 


r^l 


f£li 




microcomputadores compativeis com as sete principals ] Sinclair zx-bi 


■_■ TRS-80 L 


JLU TK 2000 


frri msx 




jjnhas existences no mercado. 

Os blocos de textos e listagens de programas aplicados ^^^ 






Quando o emblems for seguido de uma 
faixa, entao lanlo o 


r "] r- 


~l~l 


apeaas a determinadas linhas de micros podem ser 
identificados por meio dos seguintes sfmbolos: 


^■■■i 


■ ■ 


m 


programas que $i 

especificos para ; 


seguem passam a ser 
linna indicada. 


mmmm Spectrum 


■Jl TRSColor L. 


■J Apple II 



NOVOS LANCAMENTOS, 
N * NOVOS SUCESSOS. 



Howard Fast— 



1 




1 n 0»t 



*t 






A FRATERNIDADE 
DAPEDRA 

David Morrell 

Um grupo secreto, sob 
direcao de um padre 
armado, passa a agir 
contra o terrorismo. 
Mas, sera que violencia 
se combate com mais 
violencia? Eis o dilema 
de Drew, agente da Lei 
envolvido com fatos e 
f iguras do mundo real, 
num livro surpreendente 
do criador de Rambo. 



** 




AVENTUREIROS 
EMILIONARIOS 

Clark Howard 

No romance do Texas, 
a saga da descoberla de 
um poco de petroleo e 
o drama de um casal que 
herda um lote de terra 
aparentemente sem valor 
e enf renta com coragem 
os poderosos do iugar, 
ate veneer. Uma vitoria 
antes de tudo moral, 
numa historia forte e 
envolvente, com realistas 
cenasdeamor. 



CANADA SEM FIM 

Bryan Forbes 

Uma brilhante historia de 
espionagem envolvendo 
a KGB. Por que matar 
uma ex-espia que ja tinha 
sido desmascarada e 
torturada tempos atras? 
Um agente ingles, seu 
antigo amante, enfrenta 
um desafio: descobrir 
por que ela f oi morta . . . 
e por que agora! 



PODER 

Howard Fast 

Um lider sindical com 
a volupia do poder,, 
a luta pelos direitos 
dos trabalhadores, 
has EstadosUnidos, 
e sua manipulacao 
porcorruptos 
e oportunistas; o jogo 
das ambicoes politicas. 
Admiravelmente escrilo, 
um romance a tualissimo 



SUPERSEXO 

Alexandra Penney 

Se nao for o primeiro, 
este vat ser o ultimo 
e definitivo guia para 
o prazer que o lei tor 
podera seguir: um livro 
que derruba mitos, faz 
sugestoes provocantes e 
propoe tecnicas ousadas 
para se chegar ao 
supersexo, uma relacao 
intensa e especial entre 
os casais, que nao 
exclui o romantismo. 



Nao perca tambem: A MISSAO, de Robert Bolt, o livro do filme. 




EDITORA BEST SELLER 





